那怎样VBA 新建联系人

闻启学

其实我的目的 是在全球通讯录 里导入到自己的outlook 的联系人

全球通讯录  中不能允许有两个邮箱地址的 而 我都无权限修改全球通讯录


该贴已经同步到 闻启学的微博

dsd999

没有权限是无法对全球通讯录做操作的。

闻启学

dsd999 发表于 2014-4-4 09:46
没有权限是无法对全球通讯录做操作的。

导出都不行吗

dsd999

导出是可以的。
Sub ListMember()

Dim olsession As Outlook.NameSpace

Dim olAddressLists As Outlook.AddressLists
Dim olGlobalDistlist As Outlook.AddressList
Dim olDistributionEntries As Outlook.AddressEntries
Dim entry As Outlook.AddressEntry

Dim num As Integer

num = 0
Dim ret As Integer

Set olsession = Application.GetNamespace("MAPI")
Set olAddressLists = olsession.AddressLists
Set olGlobalDistlist = olAddressLists("CN")
Set olDistributionEntries = olGlobalDistlist.AddressEntries

For Each entry In olDistributionEntries   
    Debug.Print entry.Name  
Next

End Sub

闻启学

1. olAddressLists("CN")

复制代码

这个是什么意思

闻启学

dsd999 发表于 2014-4-8 11:25
导出是可以的。
Sub ListMember()

不好意思 原来我表述有误

其实我的目的 是在全球通讯录 里导入到自己的outlook 的联系人



我是想全球通讯录 里导出到到自己的outlook 的联系人

这个是我的目的

所以 怎样新建outlook 的联系人  用VBA

闻启学

换句话 是 利用全球通讯录 数据创建  自己的outlook的联系人

dsd999

Sub ListMember()

Dim olsession As Outlook.NameSpace

Dim olAddressLists As Outlook.AddressLists
Dim olGlobalDistlist As Outlook.AddressList
Dim olDistributionEntries As Outlook.AddressEntries
Dim entry As Outlook.AddressEntry
Dim itemContact As ContactItem

Dim num As Integer

num = 0
Dim ret As Integer

Set olsession = Application.GetNamespace("MAPI")
Set olAddressLists = olsession.AddressLists
Set olGlobalDistlist = olAddressLists("CN")
Set olDistributionEntries = olGlobalDistlist.AddressEntries

Dim foldContact As Folder
Dim itemContactNew As ContactItem
Set ns = Application.GetNamespace("MAPI")
Set foldContact = ns.GetDefaultFolder(olFolderContacts)


For Each entry In olDistributionEntries

If InStr(1, entry.Name, "BSCE") Then
     Debug.Print entry.Name
     Set itemContactNew = Application.CreateItem(olContactItem)
    itemContactNew.FullName = entry.Name
     itemContactNew.Save
     Exit Sub

    End If

Next

End Sub

dsd999

    itemContactNew其它的属性相应的设置下。

闻启学

Set olGlobalDistlist = olAddressLists("CN")

这个应该是获得l 列表  但是 “CN" 代表的是 ？？