MessageSave

[Andrea]

I would want to save Outlook 2K/XP/2k3 messages (headers+body+attachment)
as files and to read them with Notepad or TexPad or UltraEdit-32 ecc....
Is it possible to write a VBA program to do this?
Can you help me?
Thank
Andrea

 

[Michael Bauer]

Hi Andrea,

this sample saves the first selected item in the current folder:

Dim oMail as Outlook.MailItem
With Application.ActiveExplorer.Selection
If .Count Then
Set oMail=.Item(1)
oMail.SaveAs "c:\mail.txt", olTxt
Endif
End With

 

[Andrea]

Thank you
I will try it
Andrea

Hi Andrea,

this sample saves the first selected item in the current folder:

Dim oMail as Outlook.MailItem
With Application.ActiveExplorer.Selection
If .Count Then
Set oMail=.Item(1)
oMail.SaveAs "c:\mail.txt", olTxt
Endif
End With