使用OLE在Delphi中檢索Outlook「收件箱」和「發送」文件夾

Question

從Delphi中提取Outlook文件夾的最佳方式是什麼？理想情況下，我想要檢索收件箱文件夾和其中的任何其他文件夾。我不需要電子郵件標題/消息只是純粹的文件夾名稱。

德爾福2006年BDS

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