Как получить список папок 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; 

Взято с сайта



Содержание раздела

---

---