FiveTech Support Forums

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

Romeo,

Outlook Express is not OLE capable.

James

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

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

tks, in VBA it seems very simple.
But i use fwh, i tried
Romeo

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

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