Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Print all names from your contact list in Outlook

Sub myAddressBook()    Dim myOutlook As Outlook.Application    Dim myInformation As Namespace    Dim mycontacts As Items    Dim myItems As ContactItem    Set myOutlook = CreateObject("Outlook.Application")    Set myInformation = myOutlook.GetNamespace("MAPI")    Set mycontacts = myInformation.GetDefaultFolder(olFolderContacts).Items    For Each myItems In mycontacts       Debug.Print myItems.FirstName, myItems.LastName, myItems.Email1Address     Next End Sub