#INCLUDE msoutlook.h
oOutLook = GETOBJECT("", "Outlook.Application") && create an instance of microsoft outlook
APPLICATION.OLERequestPendingTimeout = 0 
oOLNameSpace=oOutLook.GetNameSpace("MAPI")
oContacts=oOLNameSpace.GetDefaultFolder(olFolderContacts)
IF oContacts.Items.Count > 0 THEN
FOR EACH oContact IN oContacts.Items
&& append record here etc				
ENDFOR
ELSE
&& no contacts
ENDIF
RELEASE oOutLook