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

【问题标题】：Retrieving Outlook 'Inbox' and 'Sent' folders in Delphi using OLE使用 OLE 在 Delphi 中检索 Outlook 的“收件箱”和“已发送”文件夹
【发布时间】：2011-06-28 16:42:01
【问题描述】：

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

德尔福 BDS 2006

【问题讨论】：

标签： delphi com outlook ole

【解决方案1】：

有关 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;

【讨论】：

olFolderInbox 是6 BTW，更多位于RAD Studio 安装的OCX\Servers 文件夹中的“outlook2000.pas”或“outlookxp.pas”中。并且 'comobj.pas' 应该包含在 'uses' 子句中..
或者导入Microsoft Outlook 16.0对象库的类型库。