Create Outlook.Application : Outlook Contact « Outlook « VBA / Excel / Access / Word

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

Create Outlook.Application

 
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

 

Related examples in the same category