How do I obtain the GAL, and then loop thru it.

Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.Recipient
Dim myGAL as i dont know what
Dim strUser as String


myOlApp = CreateObject("Outlook.Application")
myItem = myOlApp.CreateItem Outlook.OlItemType.olMailItem)
myRecipient = myItem.Recipients.Add(strUser)
myGAL = ???????????????


thanks duders

db