版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
本人所使用的Outlook邮箱由于未设置Exchange,联系人不能与公司局域网内的其他人共享,而且本人也未在Outlook2013中找到批量导入的选项,所以在收发邮件时有诸多不便。
所幸搜索到花开鸟儿来的帖子有代码可以直接拿来修改:Outlook2010 VBA添加联系人
-
修改参数定义:由于Office版本变迁,详细定义Office对象的操作方式会报错“自动化(Automation)错误,对象库未注册”。所以"Dim contactsF As Folder"这些对象都要改为"Dim contactsF"。
-
在Excel中建立联系人清单或者直接用其他邮箱导出联系人清单
-
编写批量导入循环和批量删除循环:考虑到联系人清单变动的问题,每次批量更新之前应清空联系人清单,以免重复。
-
设置宏触发方式。方式一:新建图形“手动更新”,并指定宏名,单击后运行宏完成联系人更新;方式二:将宏代码放到“Workbook_Open”事件中,打开文件后自动更新联系人清单。
-
代码如下:
Private Sub Workbook_Open()