Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia, estou com um problema ao enviar email usando o CDONTS. Tenho as seguinte páginas. Indique.asp apontando para envia_indicacao.asp e Orçamento.asp apontando para envia_orcamento.asp. Mas, quando clico em enviar na página indique no meu email sempre aparece como que se estivesse preenchida na página orçamento.
Segue o código das duas páginas.
envia.indicacao
<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.RemoteHost = "mail.MEU SITE"Mailer.FromName = request.form("MEU EMAIL")Mailer.FromAddress = request.form("email")Mailer.AddRecipient "Formulário Indique nosso Site " , "MEU EMAIL"Mailer.Subject = "Formulário Indique nosso Site"Mailer.BodyText = "Nome Cliente: " & request.form("nome") & vbcrlfMailer.BodyText = "Email Cliente: " & request.form("email") & vbcrlfMailer.BodyText = "Nome Amigo Cli: " & request.form("nome2") & vbcrlfMailer.BodyText = "Email Amigo Cli: " & request.form("email2") & vbcrlfif Mailer.SendMail thenResponse.Redirect("obrigado.asp")elseResponse.Write mailer.responseend if%>=====================================================
envia_orcamento
<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.RemoteHost = "mail.MEU SITE"Mailer.FromName = request.form("MEU NOME")Mailer.FromAddress = request.form("email")Mailer.AddRecipient "Formulário Orçamento" , "MEU EMAIL"Mailer.Subject = "Formulário Orçamento"Mailer.BodyText = "Nome: " & request.form("nome") & vbcrlfMailer.BodyText = "Empresa: " & request.form("empresa") & vbcrlfMailer.BodyText = "E-mail: " & request.form("email") & vbcrlfMailer.BodyText = "Telefone: " & request.form("telefone") & vbcrlfMailer.BodyText = "Novo: " & request.form("novo") & vbcrlfMailer.BodyText = "Atualização: " & request.form("atualiza") & vbcrlfMailer.BodyText = "Manutenção: " & request.form("manutencao") & vbcrlfMailer.BodyText = "Descricao: " & request.form("descricao") & vbcrlfif Mailer.SendMail then Response.redirect "obrigado.asp" else Response.Write mailer.responseend if%>
Carregando comentários...