LOCAL oOutlook,oNameSpace,oDefaultFolder,oContacts #DEFINE olFolderCalendar 9 #DEFINE olFolderContacts 10 #DEFINE olFolderDeletedItems 3 #DEFINE olFolderInBox 6 #DEFINE olFolderJournal 11 #DEFINE olFolderNotes 12 #DEFINE olFolderOutBox 4 #DEFINE olFolderSentMail 5 #DEFINE olFolderTask 13 #DEFINE olBusy 2 #DEFINE olPrivate 2 #DEFINE MAILITEM 0 #DEFINE IMPORTANCELOW 0 #DEFINE IMPORTANCENORMAL 1 #DEFINE IMPORTANCEHIGH 2 IF VARTYPE(oOutlook) = "O" RELEASE oOutlook ENDIF oOutlook = CREATEOBJECT('outlook.application') oNameSpace = oOutlook.GetNameSpace('mapi') oContacts = oNameSpace.GetDefaultfolder(olFolderContacts) FOR EACH oContact IN oContacts.Items WITH oContact ll = .FirstName ENDWITH ENDFORTIA