取得的Outlook目錄并在TTreeView里顯示出來
發(fā)表時(shí)間：2023-08-05 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]outlook對(duì)象提供了一個(gè)MAPI命名空間可以訪問其文件夾集合，每個(gè)文件夾都有一個(gè)唯一的字符型標(biāo)識(shí)符，可以將其作為數(shù)據(jù)保存在TTreeNode的EntryID屬性里。例程如下,uses里加上Com...
outlook對(duì)象提供了一個(gè)MAPI命名空間可以訪問其文件夾集合，每個(gè)文件夾都有一個(gè)唯一的字符型標(biāo)識(shí)符，可以將其作為數(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)載請(qǐng)保留此信息
