set outlook = CreateObject("Outlook.Application")
set api = outlook.GetNameSpace("MAPI")

for count=1 to api.AddressLists.Count
set contact = api.AddressLists(count)
MsgBox(contact.EmailAddress)
Next