从delphi获取outlook的电子邮件

发布时间：2020-12-15 09:29:07 所属栏目：大数据来源：网络整理

导读：我想知道是否有人知道如何从Outlook获取电子邮件,例如借助Delphi代码. 我想得到的是电子邮件的每个部分,如主题,发件人,附件等. 最好的祝福！解决方法此示例显示如何使用随Delphi提供的TOutlookApplication组件与Outlook一起发送电子邮件.它应该让您了解邮

我想知道是否有人知道如何从Outlook获取电子邮件,例如借助Delphi代码.
我想得到的是电子邮件的每个部分,如主题,发件人,附件等.

最好的祝福！

解决方法

此示例显示如何使用随Delphi提供的TOutlookApplication组件与Outlook一起发送电子邮件.它应该让您了解邮件项目可用的信息.

Detecting mailboxes in outlook将告诉您在哪里可以找到当前位于任何Outlook邮箱中的电子邮件.

function Send: boolean;
var
  Outlook: TOutlookApplication;
  olNameSpace: NameSpace;
  MailIt: TMailItem;
  AttachedFile: OleVariant;
  i: integer;
  emailaddress: string;
begin
  Result := true;
  Outlook := TOutlookApplication.Create( nil );
  try
    Outlook.ConnectKind := ckNewInstance;
    try
      Outlook.Connect;
      try
        olNameSpace := Outlook.GetNamespace('MAPI');
        olNameSpace.Logon('','',False,False);
        try

          for i := 0 to FNewUsers.Count - 1 do begin
            MailIt := TMailItem.Create( nil );
            MailIt.ConnectTo( Outlook.CreateItem( olMailItem ) as MailItem );
            try
              emailaddress := TStapper( FNewUsers.Items[i] ).Email;
              if emailaddress = '' then begin
                emailaddress := C_MailUnknownAddress;
              end;
              MailIt.Recipients.Add( emailaddress );
              MailIt.Subject := C_MailSubject;
              MailIt.Body := Format( C_MailBody,[TStapper( FNewUsers.Items[i] ).UserId,TStapper( FNewUsers.Items[i] ).Password] );
              MailIt.Save;
            finally
              MailIt.Free;
            end;
          end;

        finally
          olNameSpace.Logoff;
        end;
      finally
        Outlook.Disconnect;
      end;
    finally
      Outlook.free;
    end;
  except
    on E: Exception do begin
      Result := false;
    end;
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!