How get message from dbx (Outlook Express)

Board index FiveWin for Harbour/xHarbour How get message from dbx (Outlook Express)

Romeo

Posts: 340

Joined: Thu Jan 25, 2007 03:53 PM

How get message from dbx (Outlook Express)
Posted: Wed Apr 18, 2007 05:40 PM

Hi, any idea how get (with fwin) any single message from a DBX file of Outlook Express ?

I need it to get and process many many emails message in automatic mode using fwin
tks
Romeo/Zingoni

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: How get message from dbx (Outlook Express)
Posted: Wed Apr 18, 2007 09:20 PM

Code: Select all Collapse

#define olFolderInbox 6


FUNCTION MAIN()

    LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
    LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI")
    LOCAL oInbox := oNameSpace:GetDefaultFolder( olFolderInbox )

    LOCAL i

    FOR i = 1 TO oInbox:Items:Count
        ? oInbox:Items[ i ]:Body
        ?
    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

James Bott

Posts: 4840