oOutlook = CREATEOBJECT( [Outlook.Application] )
oNameSpace = oOutlook.GetNamespace( [MAPI] )
oAddressList = oNameSpace.AddressLists( [LMC Address Book] )
FOR EACH oContact = oAddressList.AddressEntries
  ?oContact.Class
  ?oContact.Address
  ?oContact.Name
ENDFOR