Msgs Com O Mailer

[ffppereira]

Alguém pode me ajudar?

Como faço para que na msg que é enviada, o texto em vermelho fique com as fontes menores e da cor azul, neste mailer?

<%Server.ScriptTimeOut = 120 %>

<%

ConnString="DBQ=e:\home\bd;Driver={Microsoft Access Driver (*.mdb)}"

sqlstmt = "select nome, email, senha from pessoas"

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString

set rsquery = conn.execute(sqlstmt)

nr_emails_corretos = 0

nr_emails_errados = 0

nr_geral = 0

while not rsquery.eof

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "smtp2.provedor.com.br"

Mailer.FromName = "Meu Site"

Mailer.FromAddress = "faleconosco@meusite.com.br"

Mailer.AddRecipient rsquery("nome"),rsquery("email")

Mailer.Subject=request.form("assunto")

strBody = " Prezado(a) " & rsquery("nome") & "," & vbcrlf & vbcrlf

strBody = strBody & request.form("texto") & vbcrlf & vbcrlf

strBody = strBody & "Seu login é: " & rsquery("email")& vbcrlf

strBody = strBody & "Sua senha é: " & rsquery("senha") & vbcrlf & vbcrlf & vbcrlf

strBody = strBody & "Para retirar seu nome da lista mande e-mail para: retirar@meusite.com.br" & vbcrlf

strBody = strBody & "Assunto: retirar"

Mailer.Bodytext = strBody

x = Mailer.SendMail

if x = true then

MSG = "E-MAIL ENVIADO COM SUCESSO!"

nr_emails_corretos = nr_emails_corretos + 1

Else

MSG = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

nr_emails_errados = nr_emails_errados + 1

end If

nr_geral = nr_geral + 1

Response.write nr_geral & " - " & MSG

rsquery.movenext

wend

Response.write "Numero Total de Emails: " & nr_geral & "<br>"

Response.write "Numero de Emails enviados: " & nr_emails_corretos & "<br>"

Response.write "Numero de Emails não enviados: " & nr_emails_errados & "<br>"

set rsquery = nothing

set conn = nothing

%>

[dark0]

está habilitado html no seu codigo de e-mail?

[ffppereira]

Tenho uma página html onde digito a msg e o assunto