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

Question

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

德尔福BDS 2006

Answer 1

请参阅此处了解 Outlook 的对象模型。下面显示收件箱中的文件夹名称：

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;