How to make an email into an HTML email instead of text. 1

[HardCoreCoder]

What do I need to add to this set of code to make it an HTML email?

<%@language="VBScript"%>
<%Option Explicit%>

Dim objMail

	Set objMail=CreateObject("CDO.Message")
	objMail.Subject=strSubject
	objMail.From="mpbarone@aaamichigan.com"
	objMail.To="mpbarone@aaamichigan.com"
	objMail.TextBody="Message"
	objMail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 2
	objMail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] = "xxx.78.xxx.242"
	objMail.Configuration.Fields.Item ("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] = 25
	objMail.Configuration.Fields.Update
	objMail.Send
	Set objMail=nothing

 

[gmmastros]

Change:

objMail.TextBody="Message"

To:

objMail.HTMLBody="<span style=""color:red;"">HTML Message</span>"

-George

"The great things about standards is that there are so many to choose from." - Fortune Cookie Wisdom

 

[HardCoreCoder]

Thanks for the rapid reply. Worked great!