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

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::04441

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php