Update Outlook Contact Item Using VBA

[Michael Ryle]

I use the following code to create an outlook contact item:

Dim olApp As Outlook.Application
Dim olNewContact As Outlook.ContactItem

Set olApp = CreateObject("Outlook.Application")
Set olNewContact = olApp.CreateItem(olContactItem)

With olNewContact

... set data fields ...

.Save

End With

Does anyone know how can I use VBA to UPDATE a contact item once it's been created? Thanks.

 

[Sue Mosher [MVP-Outlook]]

Depending on your application, you may be able to return a specific item using the Namespace.GetItemFromID or MAPIFolder.Items.Find method. You then set property values and save, the same as witih a new item.