Erro com AspMail

[williamot 0]

Gente fiz aqui o código tá funcionando certinho até a hora de enviar.. ele envia mas o que está definido para aparecer no campo "BODY" não aparece no e-mail.. apenas o campo "observacao com a mensagem"

O restante não.

No caso é um formulário que deve ser enviado todo por e-mail.

 

A parte que não funciona seria essa parte:

 

'Corpo da mensagem

Mail.Body = "Nome: " & nome

Mail.Body = "E-Mail: " & email

Mail.Body = "Telefone: " & telefone

Mail.Body = "RG: " & rg

Mail.Body = "Convênio: " & convenio

Mail.Body = "Plano: " & plano

Mail.Body = "Horário: " & horario

Mail.Body = "Dia: " & dia & "Mês: " & mes & "Ano: " & ano

Mail.Body = "Observação: " & observacao

 

 

Abaixo o código inteiro

 

<%
nome = Request.Form("nome")
email = Request.Form("email")
telefone = Request.Form("telefone")
rg  = Request.Form("rg")
convenio = Request.Form("convenio")
Plano = Request.Form("plano")
horario = Request.Form("horario")
dia = Request.Form("dia")
mes = Request.Form("mes")
ano = Request.Form("ano")
observacao = Request.Form("observacao")

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

'Servidor de SMTP
Mail.Host = "mail.nomedaempresa.com.br"

'E-mail do remetente
Mail.From = email

'Remetente
Mail.FromName = nome

Mail.AddAddress "email@email.com.br", "Nome da Empresa"

'Assunto da mensagem
Mail.Subject = "Consulta On Line"

'Corpo da mensagem
Mail.Body = "Nome: " & nome
Mail.Body = "E-Mail: " & email
Mail.Body = "Telefone: " & telefone
Mail.Body = "RG: " & rg
Mail.Body = "Convênio: " & convenio
Mail.Body = "Plano: " & plano
Mail.Body = "Horário: " & horario
Mail.Body = "Dia: " & dia & "Mês: " & mes & "Ano: " & ano
Mail.Body = "Observação: " & observacao

If Mail.Send Then
Response.Redirect"confirmacao.asp"
End If

Set Mail = Nothing
%>

Valeu gente

[hargon 64]

Tente assim

Mail.Body = "Nome: " & nome
Mail.Body = Mail.Body & "E-Mail: " & email
Mail.Body = Mail.Body & "Telefone: " & telefone
Mail.Body = Mail.Body & "RG: " & rg
Mail.Body = Mail.Body & "Convênio: " & convenio
Mail.Body = Mail.Body & "Plano: " & plano
Mail.Body = Mail.Body & "Horário: " & horario
Mail.Body = Mail.Body & "Dia: " & dia & "Mês: " & mes & "Ano: " & ano
Mail.Body = Mail.Body & "Observação: " & observacao

Se não funcionar, armazene em uma variável e faça

Mail.Body  = variavelBody

[williamot 0]

Aeee.. funcionou... só tem um porém.. tá tudo do lado do outro.. tipo :

 

nome email convenio ... etc.. tem como ficar assim ?

 

Nome:

E-mail:

Convênio:

 

como na programação ?

 

Abraços e muito obrigado

[Jow Xavier 0]

Bom cara você tá kerendo colocar o seu email dentro de uma tabela né, você quer usar uma formatação HTML ??

 

Bom usando o ASPMAIL eu desconheço como faz isso, dá uma pesquisada q você consegue achar isso ... abraçosss

[hargon 64]

É só utilizar vbCrLf

Mail.Body = "Nome: " & nome & vbCrLf
Mail.Body = Mail.Body & "E-Mail: " & email & vbCrLf
Mail.Body = Mail.Body & "Telefone: " & telefone & vbCrLf
Mail.Body = Mail.Body & "RG: " & rg & vbCrLf
Mail.Body = Mail.Body & "Convênio: " & convenio & vbCrLf
Mail.Body = Mail.Body & "Plano: " & plano & vbCrLf
Mail.Body = Mail.Body & "Horário: " & horario & vbCrLf
Mail.Body = Mail.Body & "Dia: " & dia & "Mês: " & mes & "Ano: " & ano & vbCrLf
Mail.Body = Mail.Body & "Observação: " & observacao & vbCrLf