Hello,
Is there a posibility to export the email-adresses that are now in a FW-database to outlook contacts?
Thanks
Marc
#define olContactItem 2
FUNCTION MAIN()
LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
LOCAL oContact := oOutlook:CreateItem( olContactItem )
oContact:FullName = "This is a new contact"
oContact:Email1Address = "newcontact@newmail.it"
oContact:Save()
oOutlook:Quit()
RETURN NILThanks Enrico,
Is there also a possibility to check if a contact already exist? My customer is adding contacts in my program and want to update every month the contacts in outlook.
Thanks,
Marc
#define olFolderContacts 10
FUNCTION MAIN()
LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI")
LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts )
LOCAL i
FOR i = 1 TO oContacts:Items:Count
IF oContacts:Items[ i ]:FullName = "MyContact"
? "Found!"
EXIT
ENDIF
NEXT
oOutlook:Quit()
RETURN NIL