Exchange Server：读取公共文件夹中自定义属性的内容(1)

wang_rx

目的
　　
　　读取Outlook公共文件夹中自定义属性的内容
　　代码
　　Set myolApp = CreateObject("Outlook.Application")
Set nms = myolApp.GetNamespace("MAPI")

　　'打开outlook“版本管理”文件夹
Set fld = nms.Folders("公用文件夹")
Set fld = fld.Folders("所有的公用文件夹")
Set fld = fld.Folders("开发部")
Set fld = fld.Folders("软件版本管理")
Set itms = fld.Items
  
'导出记录
For Each itm In itms
   
    If itm.userproperties.item("软件名称") <> "" Then
      Value = itm.userproperties.item("软件名称")
    end If
　　    ... ...
　　Next

问题

用这段代码读取了一个包含1千多条记录的Oulook公共文件夹，每条记录大概有10个自定义数据项，总共花了1个小时左右，不知道什么原因，为什么这么慢，看来还得研究