plain text to HTML in Outlook 2003

[muybn]

I have a macro in Outlook 2003 that converts a Word document into an Outlook
message:

Set objOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set objOutlookApp = CreateObject("Outlook.Application")
blnStarted = True
End If
Set objItem = objOutlookApp.CreateItem(olMailItem)
With objItem
.To = strEmail
.Subject = strSubject
.Body = strBody
.Display
End With
'On Error GoTo 0
Set objItem = Nothing
Set objOutlookApp = Nothing
Else
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End If

Since the last time I ran this macro, I decided to change my Outlook
settings to Plain Text format for creating messages, which is what I want for
"manually" generated messages. However, I wish to change to HTML format for
this macro (since the formatting is necessary for a specific audience
receiving the message from this macro'd message), then back to Plain Text for
all further "manual" messages. What would be the commands for doing this?

I wrote the following as part of objItem (under .Display), but the text
still comes in as totally unformatted, even though the HTML option is
displayed in the dropdown in the message's command bar.

 

[Steve Yandl]

Try adding
objItem.BodyFormat = olFormatHTML


Steve Yandl