VBA 获取 OUTLOOK 联系人邮箱

516420485

1. 
   
2. 
   
3. outl = CreateObject("Outlook.Application")
   
4. '*************************************
   
5. Set objsession = CreateObject("MAPI.Session")
   
6. If Not objsession Is Nothing Then
   
7. objsession.Logon "", "", False, False
   
8. End If
   
9. Set objRecipColl = objsession.AddressBook
   
10. ' Set objadl = objsession.Addresslists
    
11. Getnm = objRecipColl.Item(1).Name
    
12. ads = objRecipColl.Item(1).adress
    
13. 'ads = objRecipColl.Item(1).smtpaddress
    
14. Set objRecipColl = Nothing
    

复制代码

我想在excel中利用vba查找outlook通讯录的联系人， 并将联系人的名字与邮箱放入对应的单元格，邮箱格式为xx@xx.com形式， 但是我现在获取的却是下面这种形式
EX:/o=INA/ou=Exchange Administrative Group (F*****T)/cn=Recipients/cn=xx Zhang3
这种情况只有我自己的电脑可以发出去，其他电脑却不能发出去。我想获取xx@xx.com形式的邮箱， 请问代码如何写？

闻启学

这个是创建一个联系表的

1. Dim itemContactNew As ContactItem
   
2. 
   
3.     Set itemContactNew = Application.CreateItem(olContactItem)
   
4.     itemContactNew.FirstName = "LI"
   
5.     itemContactNew.LastName = "youhai"
   
6. 
   
7.     itemContactNew.Email1Address = "lyhSchool@163.com"
   
8.     itemContactNew.Body = "我来了"    '//便签
   
9.     itemContactNew.AssistantName = "wfji iwhfi "    '//助理姓名
   
10.     itemContactNew.Account = "亲亲 我来了 "
    
11. 
    
12.     itemContactNew.Display

复制代码

516420485

闻启学 发表于 2014-8-13 14:56
这个是创建一个联系表的

我要在excel表里记录东西， 包括姓名与部门，邮箱等我想直接在excel输入姓名， 然后利用outlook通讯录得到部门与邮箱，
不是添加在通讯录里，

cj9687451

516420485 发表于 2014-8-13 17:17
我要在excel表里记录东西， 包括姓名与部门，邮箱等我想直接在excel输入姓名， 然后利用outlook通讯录得 ...

楼主，这个问题是否解决？如何解决的呢

cj9687451

闻启学 发表于 2014-8-13 14:56
这个是创建一个联系表的

闻老师，这是企业信箱才会使用这种Exchange邮件吧。一般企业内部已经都有这种联系表了，如何调用这种联系表和邮箱的关联呢？

ztccsj

我也想知道