取得的Outlook目錄並在TTreeView裡顯示出來 (轉)

取得的Outlook目錄並在TTreeView裡顯示出來 (轉)[@more@]

提供了一個M名稱空間可以訪問其夾集合，每個資料夾都有一個唯一的字元型識別符號，可以將其作為資料儲存在TTreeNode的EntryID屬性裡。例程如下,uses里加上ComObj。
  procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
  var
  i: Integer;
  node: TTreeNode;
  begin
  for i := 1 to Folder.Count do
  begin
  node := Form1.TreeView1.Items.AddChild(ParentNode, Folder.Item[i].Name);
  LoadFolder(node, Folder.Item[i].Folders);
  end;
  end;

procedure TForm1.Button1Click(Sender: T);
var
  outlook, namespace: OLEVariant;
begin
  outlook := CreateOleObject('Outlook.Application');
  namespace := outlook.GetNameSpace('MAPI');
  loadFolder(nil, NameSpace.Folders);
  outlook := UnAssigned;
end;

//rock
//轉載請保留此資訊