Delphi中如何通过OLE高效检索Outlook收件箱及已发送邮件文件夹？

本文共计416个文字，预计阅读时间需要2分钟。

从Delphi中提取Outlook文件夹的最佳方法是使用COM接口。在Delphi中，你可以使用TOutlookApplication和TNameSpace对象来访问Outlook的数据。以下是一个简化的示例，展示了如何检索Outlook中的文件夹及其内容：

delphiuses ActiveX, ComObj;

var OutlookApp: TOutlookApplication; NameSpace: TNameSpace; Folder: TFolder; SubFolder: TFolder; Item: TOutlookItem; FileName: string;begin // 创建Outlook应用程序对象 OutlookApp :=TOutlookApplication.Create(nil);

try // 连接到Outlook默认的收件箱 NameSpace :=OutlookApp.GetNamespace('MAPI'); Folder :=NameSpace.GetDefaultFolder(olFolderInbox);

// 遍历文件夹中的所有子文件夹 for SubFolder in Folder.SubFolders do begin // 打印子文件夹名称 Writeln('Folder: ' + SubFolder.Name);

// 遍历子文件夹中的所有项目 for Item in SubFolder.Items do begin // 假设我们只关心文件类型的项目 if Item.Class=olItemType then begin // 获取文件名 FileName :=ExtractFileName(Item.Subject); // 打印文件名 Writeln('File: ' + FileName); end; end; end; finally // 释放对象 FreeAndNil(Item); FreeAndNil(SubFolder); FreeAndNil(Folder); FreeAndNil(NameSpace); FreeAndNil(OutlookApp); end;end.

这段代码首先创建了一个Outlook应用程序对象，然后连接到默认的收件箱文件夹。之后，它遍历所有子文件夹和文件夹中的项目，打印出文件名。注意，这里没有处理电子邮箱或消息内容，仅关注文件名。

从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;