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

当然是自己了咯 专栏收录该内容
11 篇文章 0 订阅

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
//转载请保留此信息

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值