在Outlook的联系人文件夹下能否创建同名联系人？

最新推荐文章于 2019-07-22 11:35:00 发布

勾吴江南

最新推荐文章于 2019-07-22 11:35:00 发布

阅读量946

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/TX_OfficeDev/article/details/7174793

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Outlook 2010

30 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

本文介绍了如何使用Outlook VBA代码创建同名甚至是同名同Email地址的联系人，并在联系人文件夹下创建一个指定文件夹用于存放测试所创建的联系人。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

答案是肯定的：可以创建同名甚至是同名同Email地址的联系人。

我在联系人文件夹下创建的一个Test文件夹用来存放测试所创建的联系人。大家有兴趣可以试试。

Sub AddNewContact()
    Dim objNameSapce As Outlook.NameSpace
    Dim objMAPIFolder1 As Outlook.MAPIFolder
    Dim objMAPIFolder2 As Outlook.MAPIFolder
    Dim objNewContact As Outlook.ContactItem
    
    Set objNameSapce = Application.Session
    Set objMAPIFolder1 = objNameSapce.GetDefaultFolder(olFolderContacts)
    Set objMAPIFolder2 = objMAPIFolder1.Folders("test")
    Set objNewContact = objMAPIFolder2.Items.Add()
    
    objNewContact.Email1Address = "******@microsoft.com"
    objNewContact.FullName = "A***en"
    objNewContact.Save
    
    Set objNewContact = Nothing
    Set objMAPIFolder2 = Nothing
    Set objMAPIFolder1 = Nothing
    Set objNameSapce = Nothing
    
End Sub