Как получить список папок Outlook

uses

  ComObj;

procedure
 RetrieveOutlookFolders(tvFolders: TTreeView);

  procedure
 LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
  var

    i: Integer;
    Node: TTreeNode;
  begin

    for
 i := 1 to
 Folder.Count do

    begin

      Node := tvFolders.Items.AddChild(ParentNode, Folder.Item[i].Name);

      LoadFolder(Node, Folder.Item[i].Folders);
    end
;
  end
;
var

  outlook, NameSpace: OLEVariant;
begin

  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  LoadFolder(nil
, NameSpace.Folders);

  outlook := Unassigned;
end
;

procedure
 TForm1.Button1Click(Sender: TObject);
begin

  RetrieveOutlookFolders(TreeView1);
end
;

Другое по теме:

• Извлечь Email адреса из DBX файлов Outlook
• Как написать Outlook AddIn
• Как отправить Email, используя почтовую программу по умолчанию