how do I force a new mailitem to use the HTML editor but not the WORD editor?

[Scott Emick]

I am using the following code. When outlook opens the message and the
Outlook HTML editor is the default editor, there is no problem. If Word is
the default editor, however, it butchers up the HTML and the message looks
like crap. How can I force the message to open in the Outlook HTML editor?

Thanks,
Scott

Dim myOlApp As Object
Const olMailItem As Integer = 0
Dim ns As Object
Dim folder As Object
Dim myItem As Object
myOlApp = CreateObject("Outlook.Application")
myItem = myOlApp.CreateItem(0)
With ne
HTML = [String].Format(strHTML, _
.NameFirst.Text, _
.nameLast.Text, _
.address1.Text, _
.Address2.Text, _
.City.Text, _
.state.Text, _
.Zip.Text, _
.phoneEve.Text, _
.phoneDay.Text, _
.Email.Text, _
.ddItems.Text, _
.old_refid.Text, _
strComments, _
.datecode.Text, _
.doc.Text, _
.ddCallType.SelectedItem.text, _
.ddResolution.SelectedItem.text, _
.ddDisposition.SelectedItem.text, _
.txtOrderId.Text, _
.dop.Text, Comments.Text)
End With
myItem.HTMLBody = HTML
myItem.BodyFormat = 2
myItem.To = Me._To.Text
myItem.Subject = "Applica Contact Manager Record"
myItem.Display()

 

[Michael Bauer]

Hi Scott,

you can find the setting in the registry (for OL 2000) under:
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail

Word-Editor: EditorPreference = &h10001
OL-Editor: EditorPreference = &h10000

But maybe OL reads this setting only once after starting. Just try it