Dim myAddressList As AddressList
Dim AddressEntry As AddressEntry
Set myAddressList = Application.Session.AddressLists("Global Address List")
For Each AddressEntry In myAddressList.AddressEntries
    MsgBox AddressEntry.Name
Next