how can I force a new outlook mailitem to open in the Outlook 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()

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

[Cor Ligthert]

Scott,

For me this sounds if you will create the next to resolve bug. The user has
set his settings to use Word as mailagent and will with your program maybe
call Microsoft why that is not working?

In my opinion is the programmer of an application not the one who decide
what maileditor the user has to use, that he decide himself of company rules
say that it only has to be Outlook and than you have no problem.

I think that you only can give him an advice to use Outlook.

(What I don't understand as well is why a user has to see a message in a
message format what he cannot change, because he is not used to the tool you
give him)

However just my thought,

Cor

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