MessageSave

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Thank you
I will try it
Andrea

Michael Bauer said:
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
Click to expand...
 
Back
Top