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

时间： 2021-07-31 作者：daque

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//连载请保持此消息

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

相关推荐

推荐下载

热门阅览

最新排行