Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

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