#DEFINE olFolderContacts 10 CREATE CURSOR myCursor (Name c(40),email c(50)) LOCAL oOutlook,oNameSpace,oDefaultFolder oOutlook = CREATEOBJECT('outlook.application') oNameSpace = oOutlook.getnamespace('MAPI') oDefaultFolder=oNameSpace.GetDefaultFolder(olFolderContacts) oItems = oDefaultFolder.items ?oItems.Count FOR EACH oItem IN oItems FOR EACH oProp IN oItem.ItemProperties ? oProp.Name next INSERT INTO myCursor (name,email) VALUES (oItem.fullname,oItem.email1address) ENDFOR SELECT myCursor BROWSE