Outlook.ContactItem contactItem = (Outlook.ContactItem)contactsFolder.Items.Find(strQuery);
if (contactItem != null)
{
contactItem.BusinessAddressCity = "New City Address";
contactItem.BusinessAddressState = "New Address State";
contactItem.BusinessAddressStreet = "New Address Street";
contactItem.Save();
}
else
{
Console.WriteLine("Contact not found");
}
}
Sub EditBusinessContact()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmContactsFldr As Outlook.Folder
Dim existContact As Outlook.ContactItem
Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set olFolders = objNS.Session.Folders
Set bcmRootFolder = olFolders("Business Contact Manager")
Set bcmContactsFldr = bcmRootFolder.Folders("Business Contacts")
Set existContact = bcmContactsFldr.Items.Find("[FileAs] = 'John Smith'")
If Not TypeName(existContact) = "Nothing" Then