Macro or Code to save email as RTF files

[Brent E]

Good day,

I have numerous emails stored in a subfolder of my personal folder in
Outlook. The files are currently in an Outlook msg format. I want to
convert
them to RTF and store them.

I am curious if anybody knows of a macro or VBA that will save all emails
in
the folder as RTF and save them to a widows folder for example:
C:\Outlook\Messages

Please advise.

Thanks in advance,
Cordially,

 

[Alan Moseley]

I don't think that you can save an email as RTF through the object model.
You can save it as an msg file though. Would this suffice? If so I can
probably figure some code out for you. How would you want the file named?

 

[Ken Slovak - [MVP - Outlook]]

Sure you can save an email as RTF, assuming it is an RTF message. To convert
it to RTF you would use item.BodyFormat = olFormatRichText (item would be
the mail item), then call Save on it, then call SaveAs using olRTF as the
argument for the Type parameter.