如何用VBA读取outlook联系人中的照片和便笺（备注）？

dapanpan

      习惯了使用Outlook管理联系人，为便于进行数据交换，欲用vba将联系人写入一个xml文件，如何处理将联系人的照片和便笺（备注信息中有大段文字）当作一个字段写入同一个xml文件中。以前的91手机助手（for windows Mobile）实现过，但其他一些字段有丢失，所以想自己写。
      请各位大侠出手相助，mail:dapanpan@sina.com，谢谢！

dapanpan

Outlook联系人的便笺（备注）问题解决了，开始没搞明白它对应的字段名是body，混乱的翻译和字段名，找不到完成的对照关系，只能连猜带蒙去试！联系人照片还没找到读取的方法，请知道的大侠多多赐教，3QU！

闻启学

dapanpan 发表于 2014-3-13 13:43
Outlook联系人的便笺（备注）问题解决了，开始没搞明白它对应的字段名是body，混乱的翻译和字段名，找不到完 ...

能否看看 代码  学习一下

dapanpan

代码太长，以附件形式发布，请大家多批评指正。

闻启学

dapanpan 发表于 2014-3-24 20:33
代码太长，以附件形式发布，请大家多批评指正。

多谢 以后多多指点

dapanpan

       还是要自立更生，问题已得到基本解决。借助vCard解决了Outlook头像数据的读取问题，但有点小问题，极个别联系人的头像数据要在尾巴上要加一长串”A“，不知道为什么，没功夫搞清楚它。还有一个小问题，就是Outlook中的联系电话种类比较多，未能一一进行同步，只完成了常用号码的对照，基本满足需要了。
       至此，基本实现outlook联系人与Andriod联系人的完美同步，解决了outlook联系人头像和分组丢失问题，先用该vba将联系人数据导出为91手机助手的xml文件，然后用91手机助手导入andriod手机即可。
       喜欢用Outlook管理联系人，不信任那些网络通信录，所以只好自己动手，可能有点偏执，个人的癖好，别见笑！

shameman

我想要联系人文件下所有的抬头，如：Account,Actions,AddBusinessCardLogoPicture,AddPicture等 有90多个，一个个抄不实现又恐出错。请教有什么办法遍历得出？
Dim objOut As Outlook.Application
Dim objNspc As Namespace
Dim objItem As ContactItem
    Set objOut = New Outlook.Application
    Set objNspc = objOut.GetNamespace("MAPI")
     For Each objItem In objNspc.GetDefaultFolder(olFolderContacts).Items
      msgbox objItem.(就是要求.之后出现提示框内的那些的属性）   
     next