取得的Outlook目录并在TTreeView里显示出来 (转)

cuiji1279

于 2008-07-23 15:58:15 发布

阅读量59

点赞数

取得的Outlook目录并在TTreeView里显示出来 (转)[@more@]

Outlook 对象提供了一个Mapi命名空间可以访问其文件夹集合，每个文件夹都有一个唯一的字符型标识符，可以将其作为数据保存在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
//转载请保留此信息

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-1007712/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-1007712/