How to export contacts from wab file

[MarcoBoschi]

Hi,
I have to export contacts from outlook express.
It's obvious ...from a xHarbour/Fivewin application.
Thanks in advance
marco

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#define olFolderContacts 10


FUNCTION MAIN()

    LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
    LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI")
    LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts )

    LOCAL i

    SET DATE BRITISH

    FOR i = 1 TO oContacts:Items:Count
        ? oContacts:Items[ i ]:FullName
        ? oContacts:Items[ i ]:BusinessAddressStreet
        ? oContacts:Items[ i ]:BusinessAddressPostalCode
        ? oContacts:Items[ i ]:BusinessAddressCity
        ? oContacts:Items[ i ]:BusinessAddressState
        ? oContacts:Items[ i ]:BusinessAddressCountry
        ? oContacts:Items[ i ]:BusinessTelephoneNumber
        ? oContacts:Items[ i ]:Email1Address
        ? oContacts:Items[ i ]:LastModificationTime
        ?
        ? oContacts:Items[ i ]:Categories
        ?
    NEXT

    oOutlook:Quit()

    INKEY( 0 )

    RETURN NIL

EMG

[hua]

Enrico,
Would this work for both MS Outlook and Outlook Express? Because Marco mentioned Outlook Express I believe

[Enrico Maria Giordano]

Ops! No, my sample is for Office Outlook. Sorry, I don't know how to export contacts from OE.

EMG

[MarcoBoschi]

OK Thanks