明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

取得的Outlook目錄并在TTreeView里顯示出來

發(fā)表時間：2023-08-05 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]outlook對象提供了一個MAPI命名空間可以訪問其文件夾集合，每個文件夾都有一個唯一的字符型標識符，可以將其作為數(shù)據(jù)保存在TTreeNode的EntryID屬性里。例程如下,uses里加上Com...
outlook對象提供了一個MAPI命名空間可以訪問其文件夾集合，每個文件夾都有一個唯一的字符型標識符，可以將其作為數(shù)據(jù)保存在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: TObject);
var
  outlook, namespace: OLEVariant;
begin
  outlook := CreateOleObject('Outlook.Application');
  namespace := outlook.GetNameSpace('MAPI');
  loadFolder(nil, NameSpace.Folders);
  outlook := UnAssigned;
end;

//rock
//轉(zhuǎn)載請保留此信息