Update the contacts in Microsoft Outlook

[Marco Turco]

Hi all,
I need to export my customers data into the contacts folder in Outlook. As I know it can be made via OLE.
Do you have a working sample to make this ?

Thanks in advance.

[anserkk]

Try This,

Code: Select all  Expand view

#include "fivewin.ch"
#DEFINE olFolderContacts 10

//----------------------------------------------------------------------------//
Function Main()

    LOCAL oOutlook,oNameSpace,oDefaultFolder,oContact
    oOutlook:= CREATEOBJECT('outlook.application')
    oNameSpace:= oOutlook:getnamespace('MAPI')
    oDefaultFolder:=oNameSpace:GetDefaultFolder(olFolderContacts) // Contacts
   
    oContact = oOutlook:CreateItem(2) // oContactItem

    With object oContact
        :FirstName = "Anser First Name"
        :LastName = "Anser Last Name"
        :Email1Address = "anserkk@xdsss.com"
        :CompanyName = "My Test Company"
        :BusinessTelephoneNumber = "9689987890000"
        :BusinessFaxNumber = "123456789"
        :HomeTelephoneNumber = "987654321"
    End
   
    oContact:Close(0) // Save
    oDefaultFolder:display()
   
Return nil

Regards
Anser