Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
OOlá pessoal
Estou tentando mandar e-mails com um arquivo que achei aqui mesmo no imasters, só que estou tendo o seguinte problema, no codigo original o endereço de e-mail está colocado diretamente na variavel var_to e funciona normalmente, só que fiz uma página onde dependendo da escolha do visitante o e-mail é direcionado para um endereço de e-mail diferente, e assim sendo a variavel var_to receberá o seguinte valor
var_to = Request.Form("endereço")
entretanto a variavel não está recebendo o valor passado, se alguém poder me ajudar serei grato pela ajuda. Abaixo segue o código:
<%
Option Explicit
Dim var_nome, var_mail, var_assunto, var_comentario, var_to, EnviarMail, MsgBody
var_nome = Request.Form("nome")
var_mail = Request.Form("email")
var_assunto = Request.Form("assunto")
var_comentario = Request.Form("comentario")
var_email = Request.Form("email_vereador")
var_to = "exemplo@exemplo.com.br"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = var_assunto
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 = 2
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send
Set EnviarMail = Nothing
Response.redirect "obrigado.htm"
%>
Carregando comentários...