This will get you the contents of Outlook address book and insert them into a cursor. Hope this helps.

#DEFINE Contacts 10

WAIT WINDOW 'Building Address List...' NOWAIT NOCLEAR

LOCAL oNameSpace, oContacts

oOutlook = CREATEOBJECT('Outlook.Application')
oNameSpace = oOutlook.GetNameSpace('MAPI')
oContacts = oNameSpace.GetDefaultFolder(Contacts)

CREATE CURSOR ContactInfo ;
  (address C(100), fname C(20), lname C(40))

FOR EACH oContact IN oContacts.Items
  cAddr = oContact.Email1Address
  cFname = oContact.FirstName
  cLname = oContact.LastName
  INSERT INTO ContactInfo (address, fname, lname) VALUES (cAddr, cFname, cLname)
ENDFOR

RELEASE oOutlook
RELEASE oNamesSpace
RELEASE oContacts

WAIT CLEAR

Regards,
Charlie