Outlook Address Book

[JimP]

Is there a way to access information in an Outlook Address Book via VBA?

 

[JP]

Sure, how about

Dim olApp As Object ' Outlook.Application
Dim olNS As Object ' Outlook.NameSpace
Dim olAL As Object ' Outlook.AddressList
Dim olEntry As Object ' Outlook.AddressEntry

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olAL = olNS.AddressLists("Personal Address Book")
For Each olEntry In olAL.AddressEntries
' your looping code here
Next olEntry

Just replace "Personal Address Book" with the name of the address book
you want. (Go to Tools > Address Book and look in the "Show Names"
dropdown).

For sample looping code, see http://www.codeforexcelandoutlook.com/blog/2009/03/extract-gal-members-to-excel/

--JP