List Contacts in Each Contact Folder

Question

Hi,
When I open OUTLOOK 2013 and click on "People" I have a "My Contacts" and under it a folder named Contacts.  Today I added a new folder name "Test" under Contacts and created several new contacts in this folder.
I am trying to create a VBA procedure to list all Contact folders and all contacts in each folder.   Here is a simplified version of the code:
Sub GetContacts()
Dim objOutlook As Outlook.Application
Dim objAddressBook As Outlook.AddressList
Dim objAddressEntry As Outlook.AddressEntry
Dim lngRow As Long
Set objOutlook = CreateObject("Outlook.Application")
For Each objAddressBook In objOutlook.Session.AddressLists
Debug.Print objAddressBook.Name
'Msgbox objAddressBook.AddressEntries.Count For Each objAddressEntry In objAddressBook.AddressEntries
Debug.Print objAddressEntry.Name
Debug.Print objAddressEntry.Address
Next
Next
End Sub
Result:  Both contact folder names (Contacts and Test) are listed.  All contacts in the contact folder "Contacts" are listed, but none of the contacts in the contact folder "Test" are listed. 
If I unset the Msgbox line the "Contact" folder count reports accurately 66 contacts.  However even though I clearly have several contacts defined in the "Test" folder the count returned is 0.
What could I be doing wrong?  Thanks
Greg Maxey Please visit my website at: http://gregmaxey.mvps.org/word_tips.htm

Answer 1

Hi Greg Maxey,
>>the address book is there, but the Address List Entries are not.  This sort of explains why the code isn't returning the Address List entries, but not why the address list entries are not in the book!<<
Based on my test, if I created a contact without email address, the contact won't display in the Address book. Here is the figure for your reference:
The
AddressEntry object is an address in an AddressEntries object. Each
AddressEntry object in the AddressEntries object holds information that represents a person, group,  or public folder to which the messaging system can deliver messages.
Based on my understanding, if there is no email address for the contact, this is expected that there is no addressEntry for it.
Please feel free to let me know if I misunderstood.
Regards & Fei
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.