使用OLE在Delphi中检索Outlook“收件箱”和“已发送”文件夹

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

导读：从Delphi中提取Outlook文件夹的最佳方法是什么？理想情况下,我想检索收件箱文件夹及其中的任何其他文件夹.我不要求电子邮件标题/消息纯粹是文件夹名称. 德尔福BDS 2006 解决方法有关Outlook的对象模型,请参见 here.下面显示收件箱中文件夹的名称： procedur

从Delphi中提取Outlook文件夹的最佳方法是什么？理想情况下,我想检索收件箱文件夹及其中的任何其他文件夹.我不要求电子邮件标题/消息纯粹是文件夹名称.

德尔福BDS 2006

解决方法

有关Outlook的对象模型,请参见 here.下面显示收件箱中文件夹的名称：

procedure TForm1.Button1Click(Sender: TObject);
var
  Outlook,oNameSpace,Inbox: OleVariant;
  i: Integer;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  oNameSpace := Outlook.GetNamespace('MAPI');
  oNameSpace.Logon('','',False,False);   // not sure if this is necessary
  Inbox := oNameSpace.GetDefaultFolder(olFolderInbox);
  for i := 1 to Inbox.Folders.Count do
    ShowMessage(Inbox.Folders[i].Name);
end;

（编辑：李大同）

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