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