topic-15723

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

How to export contacts from wab file
Posted: Thu May 28, 2009 07:17 AM

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

Marco Boschi
info@marcoboschi.it

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: How to export contacts from wab file
Posted: Thu May 28, 2009 07:22 AM

This is a working sample:

Code (fw): Select all Collapse

#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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: How to export contacts from wab file
Posted: Thu May 28, 2009 07:24 AM

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

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: How to export contacts from wab file
Posted: Thu May 28, 2009 07:27 AM