How get message from dbx (Outlook Express)

Post Reply
Romeo
Posts: 328
Joined: Thu Jan 25, 2007 3:53 pm
Location: Milan (Italy)

How get message from dbx (Outlook Express)

Post by Romeo »

Hi, i need to know all the folders and messages in the outlook express or microsoft outlook or more in general in the default mail of pc.

I found the following exampe for microsoft outlook and in tried to implement it.

****************************
oOL := TOleAuto():New( "Outlook.Application" )
lOutlookOK := .T.
IF ! lOutlookOK
RETURN ( 0 )
ENDIF

oNameSpace = oOL:Get( "GetNameSpace", "MAPI" )
oContacts = oNameSpace:Get( "GetDefaultFolder", "6" ) // 6 = Inbox-Folder

FOR nContador = 1 TO oContacts:ITEMS:Count()
oNewContact = oContacts:ITEMS( nContador )
cSenderName := oNewContact:get( "SenderName" )
cSubject := oNewContact:get( "Subject" )

cBody := oNewContact:get( "Body" )
NEXT nContador
RETURN NIL
********************

of course i dont know how to complete it.
I need for example to have all the folders of default mail (express/outlook/other) and the message and all the other information from an email/msg

Tks
Romeo
User avatar
James Bott
Posts: 4654
Joined: Fri Nov 18, 2005 4:52 pm
Location: San Diego, California, USA
Contact:

Post by James Bott »

Romeo,

Outlook Express is not OLE capable.

James
Romeo
Posts: 328
Joined: Thu Jan 25, 2007 3:53 pm
Location: Milan (Italy)

Post by Romeo »

Ok,
Could be possible to have a sample (for microsoft outlook) to get all the folders of mail and all the message.

I tried to have a look in the file VBAOUTL*.CHM, but i am not able to get the right informations.

tks
WINHOTEL
Posts: 2
Joined: Wed May 02, 2007 4:30 pm

Post by WINHOTEL »

This is a VBA Macro where I inserted some code to get all Emails from a folder.
Regards
Otto

Sub SaveEmail()
'Declaration
Dim itm As Outlook.MailItem

Set olItms = Application.ActiveExplorer.CurrentFolder.Items

On Error Resume Next
For Each itm In olItms
MsgBox (itm.SenderEmailAddress)
Next itm

End Sub
Romeo
Posts: 328
Joined: Thu Jan 25, 2007 3:53 pm
Location: Milan (Italy)

Post by Romeo »

tks, in VBA it seems very simple.
But i use fwh, i tried
Romeo
WINHOTEL
Posts: 2
Joined: Wed May 02, 2007 4:30 pm

Post by WINHOTEL »

What for do you need this?
In my case I save the emails with a macro and than use a FW program with a timer which looks up the folder where the emails are saved.


Regards
Otto
Romeo
Posts: 328
Joined: Thu Jan 25, 2007 3:53 pm
Location: Milan (Italy)

Post by Romeo »

It seems a god idea.
Of course i need VB...
Tks
Post Reply