Add new contact item to Outlook : Outlook Contact « Outlook « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Outlook
3. Outlook Contact

Add new contact item to Outlook

 
Sub AddAContact()
   Dim myOutlook As Outlook.Application
   Dim myItems As ContactItem

   Set myOutlook = CreateObject("Outlook.Application")
   Set myItems = myOutlook.CreateItem(olContactItem)

   With myItems
      .FirstName = "John"
      .LastName = "Smith"
      .Email1Address = "johnsmith@yoursite.com"
      .Save
    End With
End Sub

 

Related examples in the same category