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

S

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()
 
M

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
:)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top