Format my email

[carranz]

I'm trying to format the body of my email. I want to create bold text for some of the text like "Full Name" "Name"
and change font size or color of font.

anything help would be appreciated

Dim sMessage


sMessage = sMessage & "Full Name:" & Request.Form("txtFull") & VbCrLf
sMessage = sMessage & "Name:" & Request.Form("txtName") & VbCrLf
sMessage = sMessage & "Coll:" & Request.Form("txtColl") & VbCrLf
sMessage = sMessage & "Department:" & Request.Form("txtDepart") & VbCrLf
sMessage = sMessage & "Email:" & Request.Form("txtEmail") & VbCrLf
sMessage = sMessage & "Phone:" & Request.Form("txtPhone") & VbCrLf


Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "es"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "lin@ooo.com"
.To = "sl@exchange.com"
.Subject = "ECA Access Request Form"
.TextBody = sMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing

%>

 

[ChrisHirst]

use .HTMLBody = sMessage and format it with HTML tags

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.