在非默认Outlook联系人文件夹中创建联系人

Question

我想使用Excel VBA 2010在非默认Outlook联系人文件夹中创建联系人。

在此示例中，文件夹名称为“ azerty”，位于
\\ mypersonnal_pst \\联系

我试过了：

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set Folder = myNamespace.GetDefaultFolder(olFolderContacts).Parent.Folders("azerty")
Set objContact = myolApp.CreateItem(olContactItem)
With objContact
  .Email1Address = "example@ex.com "
  .FirstName = "Joe"
  .LastName = "Mc"
  .HomeTelephoneNumber = "99 99 99 99 99"
  .HomeAddressCity = "Xlcity"
  .Save
End With

Answer 1

如果需要在特定文件夹中创建Outlook项目，请使用Items类的Add方法。

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set Folder = myNamespace.GetDefaultFolder(olFolderContacts).Parent.Folders("azerty")
Set objContact = Folder.Items.Add(olContactItem)
With objContact
  .Email1Address = "example@ex.com "
  .FirstName = "Joe"
  .LastName = "Mc"
  .HomeTelephoneNumber = "99 99 99 99 99"
  .HomeAddressCity = "Xlcity"
  .Save
End With

或在创建后使用Move方法将项目移动到目标文件夹。

Dim myolApp As Outlook.Application
Dim myNamespace As Outlook.Namespace
Set myolApp = CreateObject("Outlook.Application")
Set myNamespace = myolApp.GetNamespace("MAPI")
Set Folder = myNamespace.GetDefaultFolder(olFolderContacts).Parent.Folders("azerty")
Set objContact = myolApp.CreateItem(olContactItem)
With objContact
  .Email1Address = "example@ex.com "
  .FirstName = "Joe"
  .LastName = "Mc"
  .HomeTelephoneNumber = "99 99 99 99 99"
  .HomeAddressCity = "Xlcity"
  .Save
  .Move Folder 
End With

您可以在“ 如何：以编程方式创建新的Outlook联系人”文章中了解有关此内容的更多信息。