Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

allan.web

cdonts

Recommended Posts

tenho um formulario que vai para um bd e tbem é enviado por e-mail para o usuario e p o webmaster, e presiso que a cor de fundo do e-mail enviado seja preto, como faço isso??...desde ja agradeço.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Envia o e-mail no padrão HTML, com a cor de fundo alterada :ph34r:

Mais como que faço isso??... seria mais ou menos isso??... alterar onde marquei em negrito??

 

<%

Option Explicit

 

Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody

 

var_nome = Request.QueryString("txtnome")

var_mail = Request.QueryString("txtemail")

var_comentario = Request.QueryString("txtcomentario")

var_to = "allan@sdam.net"

 

 

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

EnviarMail.To = var_to

EnviarMail.From = var_mail

EnviarMail.Subject = "Novo pedido"

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""#FFFFFF"">" _

& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _

& "</body>" _

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

 

Set EnviarMail = Nothing

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso mesmo. Tem uma solução bastante interessante nos artigos do iMasters.Foi lá que consegui esclarecer essa questão :D

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.