Outlook添加信息到联系人而不是通讯薄

[jomakzhao]

两个问题:
一、outlook中联系人与通讯薄有什么区别？我通过通讯薄中的新建联系人，在联系人中可以看到建立的结果，而在联系人中建立联系人，则在通讯薄中看不到。为什么？
二、我通过下面代码新建联系人，但结果只能在联系人中看到，通讯薄中看不到
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.NameSpace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Dim olItem As Outlook.contactItem
Set olItem = olApp.CreateItem(olContactItem)
With olItem
.FirstName = "测试11"
.FullName = "测试fullname"
.BusinessAddress = "商业地址"
.FullName = "测试添加姓名"
End With
olItem.Save
MsgBox "添加成功"

希望高手指点一二，不胜感激...

[liusing2002]

我都想知道呀.有人说说吗？

[ftsun123]

可能是因为你没有，添加邮件地址，只有添加了邮件地址才能添加到，outlook通讯薄当中