I have a need to be able to create a Contact in a Users Outlook Address book. Here is some more info, some users have more then one Email account which means multiple address books. So here is my question, how do I save to the default address book ? Is there a way to get a list of address books for a user and have him chose where to save. Also I have the below sample code but when I run it it does not throw an error nor do I find the contact in any of my address books
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Create an Outlook application.
Dim outApplication As Outlook.Application = New Outlook.Application()
' Get the namespace and the logon.
Dim outNamSpace As Outlook.NameSpace = outApplication.GetNamespace("MAPI")
' Create a new contact item.
Dim NewContact As Outlook.ContactItem = outApplication.CreateItem(Outlook.OlItemType.olContactItem)
' Set some common properties.
NewContact.FirstName = "Author"
NewContact.FullName = "Author Code"
NewContact.Title = "Client"
NewContact.Birthday = Convert.ToDateTime("5/4/1969")
NewContact.CompanyName = "AuthorCode"
NewContact.Department = "Development"
NewContact.Body = "Sample"
NewContact.FileAs = "Authorcode"
NewContact.Email1Address = "firstname.lastname@example.org"
NewContact.Email2Address = "email@example.com"
NewContact.MailingAddress = "NewDelhi India"
NewContact.Subject = "Contact crated from vb.net"
NewContact.JobTitle = "Engineer"
outApplication = Nothing
outNamSpace = Nothing
NewContact = Nothing