Uma Pequena Ajuda Na Programação...

[marcus Gemeos]

Olá pessoal,

Eu não estou conseguindo enviar todos os campos no corpo do e-mail com estes comandos abaixo, ou seja, só está enviando no corpo do e-mail, a última linha do body!

Alguém poderia me ajudar a altera-lo para enviar quantos campos eu quiser no corpo do e-mail com este envio de email ASP?

Abaixo segue o código completo:

Obrigado!

Marcus

<%
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.e-construir.com.br"
Mail.Port = 25 ' Opcional. Porta 25 é a porta padrão

Mail.FromName = Request.QueryString("nome")
Mail.From = Request.QueryString("email")

destinatario="estudio@e-construir.com.br"
Mail.AddAddress destinatario

'Descomente a linha abaixo para enviar e-mail em formato HTML
'Mail.IsHTML = True

Mail.Subject = Request.QueryString("assunto")

Mail.Body = Request.QueryString("nome") & vbnewline
Mail.Body = Request.QueryString("email") & vbnewline
Mail.Body = Request.QueryString("ddd") & vbnewline
Mail.Body = Request.QueryString("telefone") & vbnewline
Mail.Body = Request.QueryString("mensagem") & vbnewline


erro = ""
sucesso = False
On Error Resume Next 'Verifica erros
Mail.Send 'Envia mensagem

If Err <> 0 Then
erro = Err.Description
else
sucesso = True
End If
Set Mail = nothing
%>

<% If erro <> "" Then%>
Ocorreu um erro: <% = erro %><% End If %><% If sucesso Then
Response.Redirect("http://www.e-construir.com.br/ok.asp")%><% End If %>

[.Andreia.]

faz o seguinte:

mensagem = Request.QueryString("nome") & vbnewline
mensagem = mensagem & Request.QueryString("email") & vbnewline
mensagem = mensagem & Request.QueryString("ddd") & vbnewline
mensagem = mensagem & Request.QueryString("telefone") & vbnewline
mensagem = mensagem & Request.QueryString("mensagem") & vbnewline

Mail.Body = mensagem

Percebeu que voce estava perdendo os valores por não juntar o que você já tinha atribuido?

[marcus Gemeos]

Vlw!!! ;)