outlook2010 联系人卡片 vba怎么调用

发布网友 发布时间：2022-04-22 06:08

我来回答

共2个回答

热心网友 时间：2023-07-16 23:52

Gmail通讯录与Outlook通讯录进行同步操作，而往往只是要更新某个类别的用户信息。Outlook菜单只支持全部导出通讯录信息为csv文件。而当想要只输出某一类别（如"同学.高中"时）则要先输出为Excel表格，再筛选转换成csv文件。
Outlook是Office组件之一，其支持VBA自动化对象。
代码如下

Sub ExportVCards()
Dim objNS As NameSpace '命名空间
Dim objContactFolder '通讯录目录
Dim objEntry As Variant 'OEM条目
Dim objContactEntry As ContactItem '通讯录条目
Dim count As Integer '计数器
Dim CategoriesName As String '类别名称
Dim ExportFolder As String '输出目录
CategoriesName = "同学.中学"
ExportFolder = "e:\\temp\\contacts\\"

count = 0
Set objNS = Application.GetNamespace("MAPI") '连接到命令空间中，这是直接在Outlook中运用宏时获取命令句柄的方法
Set objContactFolder = objNS.GetDefaultFolder(olFolderContacts) '转到通讯录目录中

For Each objEntry In objContactFolder.Items '遍历通讯录目录
If Not TypeOf objEntry Is ContactItem Then
If TypeOf objEntry Is DistListItem Then
Debug.Print "Found a distribution list, skipping"
Else
Debug.Print "****** found a something odd ****"
Debug.Print " " & objEntry
End If
Else
Set objContactEntry = objEntry
If CategoriesName = objEntry.Categories Then
count = count + 1
path = ExportFolder & "contact" & count & ".vcf"
objContactEntry.SaveAs path, olVCard '将该条目输出到目录中
End If
End If
Next
Set objNS = Nothing
End Sub

经过上述代码后，将该类别所有的通信联系人条目输出到单个文件中，再用命令将所有文件合并起来，我采用的方法是 Cygwin 的Cat 命令，即

cat contact*.vcf > all.vcf

这样导入到Gmail后，再用Merge整合重复的人员即可

热心网友 时间：2023-07-16 23:52

下面的代码可以导出OUTLook联系人，从中适当修改就可以

Sub ExportVcards()

Dim MyContacts As Outlook.MAPIFolder
Dim ContItem As Outlook.ContactItem
Dim FileName As String
Set MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
 For Each ContItem In MyContacts.Items
    FileName = "d:\Contacts\" & ContItem.FileAs & ".vcf"    '文件夹不存在会出错
    ContItem.SaveAs FileName, olVCard
 Next
 End Sub

For Each循环里面可以使用下面的代码获得联系人名字及邮箱：

姓名=contitem.FullName 

邮箱=contitem.Email1Address         ‘（最多3个邮箱）

也可以mycontacts.Items("韩 梅梅").Email1Address     从全名得到她的地址。

追问如果想访问里联系人卡片中的部门呢