How to change email format from HTML to PlainText?

[alex9128]

Hi,

I've found that I cannot do that with this code:
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=2

Set objTargetEmail = ActiveDocument
ActiveWindow.SetFocus
Set objEnv = objTargetEmail.MailEnvelope
Set objmailitem = objEnv.Item
With objmailitem
.To = "(e-mail address removed)"
.Subject = strSubject2Fill
.BodyFormat = mfPlainText 'turns into plain text
End With
Actually it changes in a "Message format" drop box from "HTML" to
"PlainText" but body of email still works like a HTML. Only after I manually
chose "PlainText" again from a drop box it changed body format to PlainText
with confirmation message.
Any ideas would be greatly appreciated.
Alex

 

[Word Heretic]

G'day "alex9128" <[email protected]>,

You will need to use copy and paste functions along with outlook
automation.

Hi,

I've found that I cannot do that with this code:
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=2

Set objTargetEmail = ActiveDocument
ActiveWindow.SetFocus
Set objEnv = objTargetEmail.MailEnvelope
Set objmailitem = objEnv.Item
With objmailitem
.To = "(e-mail address removed)"
.Subject = strSubject2Fill
.BodyFormat = mfPlainText 'turns into plain text
End With
Actually it changes in a "Message format" drop box from "HTML" to
"PlainText" but body of email still works like a HTML. Only after I manually
chose "PlainText" again from a drop box it changed body format to PlainText
with confirmation message.
Any ideas would be greatly appreciated.
Alex

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
Email (e-mail address removed)
Products http://www.geocities.com/word_heretic/products.html

Replies offlist may require payment.