Ir para conteúdo

POWERED BY:

Arquivado

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

agricio

Cdonts

Por , em ASP Clássico

Recommended Posts

agricio    0

agricio
Postado

 

Como ficaria esse codigo abaixo enviando para mais um e-mail, ou seja uma copia.

 

 

<%

Option Explicit

 

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

 

var_nome = Request.QueryString("txtnome")

var_mail = Request.QueryString("txtemail")

var_assunto = Request.QueryString("txtassunto")

var_comentario = Request.QueryString("txtcomentario")

var_to = "xxxx@.com.br"

 

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

EnviarMail.To = var_to

EnviarMail.From = var_mail

EnviarMail.Subject = "Contato"

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

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

& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b></font></p>" _

& "<div align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">E-mail: <b>" & var_mail & "</b></font></div>" _

& "<div align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Assunto: <b>" & var_assunto & "</b></font></div>" _

& "<div align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Comentário: <b>" & var_comentario & "</b></font></div>" _

& "</body>" _

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.Importance = 1

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

 

Set EnviarMail = Nothing

 

Response.redirect "xxxx.asp"

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito