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

--
Scott Emick
Web Programmer
Fox International
Remove the ham from mail address if it's not spam

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

--
Viele Grüße
Michael Bauer


"Scott Emick" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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()
>
> --
> Scott Emick
> Web Programmer
> Fox International
> Remove the ham from mail address if it's not spam
>
>