本文主要是介绍在Outlook的联系人文件夹下能否创建同名联系人?,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
答案是肯定的:可以创建同名甚至是同名同Email地址的联系人。
我在联系人文件夹下创建的一个Test文件夹用来存放测试所创建的联系人。大家有兴趣可以试试。
Sub AddNewContact()Dim objNameSapce As Outlook.NameSpaceDim objMAPIFolder1 As Outlook.MAPIFolderDim objMAPIFolder2 As Outlook.MAPIFolderDim objNewContact As Outlook.ContactItemSet objNameSapce = Application.SessionSet objMAPIFolder1 = objNameSapce.GetDefaultFolder(olFolderContacts)Set objMAPIFolder2 = objMAPIFolder1.Folders("test")Set objNewContact = objMAPIFolder2.Items.Add()objNewContact.Email1Address = "******@microsoft.com"objNewContact.FullName = "A***en"objNewContact.SaveSet objNewContact = NothingSet objMAPIFolder2 = NothingSet objMAPIFolder1 = NothingSet objNameSapce = NothingEnd Sub
这篇关于在Outlook的联系人文件夹下能否创建同名联系人?的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!