Mensagem no corpo do texto

[vitorlouzada 0]

A mensagem está sendo enviada corretamente, só que os dados do formulário estão indo todos na mesma linha.

 

como faço para que cada dado fique em uma linha separada.

 

o código do envio segue abaixo:

CODE

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

Mail.Host = Host

Mail.From = FromEmail

Mail.FromName = FromName

Mail.AddAddress ToEmail

Mail.Subject = Subject

Mail.IsHTML = True

' --> Monta o corpo da mensagem na variável temporaria tmpTexto

tmpTexto = "Tipo: " & Request.Form("tip")

tmpTexto = tmpTexto & " Plano: " & Request.Form("plat")

tmpTexto = tmpTexto & " Dominio: " & Request.Form("dom")

tmpTexto = tmpTexto & " Extensão: " & Request.Form("ext")

tmpTexto = tmpTexto & " Plano de Hospedagem: " & Request.Form("plano")

tmpTexto = tmpTexto & " Forma de Pagamento: " & Request.Form("pag")

tmpTexto = tmpTexto & " Empresa: " & Request.Form("emp")

tmpTexto = tmpTexto & " CNPJ/CPF: " & Request.Form("cnpj")

tmpTexto = tmpTexto & " Responsável: " & Request.Form("resp")

tmpTexto = tmpTexto & " Endereço: " & Request.Form("end")

tmpTexto = tmpTexto & " ES: " & Request.Form("uf")

tmpTexto = tmpTexto & " CEP: " & Request.Form("cep")

tmpTexto = tmpTexto & " Telefone: " & Request.Form("fone")

tmpTexto = tmpTexto & " Email: " & Request.Form("email")

tmpTexto = tmpTexto & " Código Afiliado: " & Request.Form("afi")

 

 

Mail.Body = tmpTexto

[Ted k' 126]

adiciona isso (&"<br>") no final

 

tmpTexto = tmpTexto & " Plano: " & Request.Form("plat")&"<br>"
tmpTexto = tmpTexto & " Dominio: " & Request.Form("dom")&"<br>"

e assim por diante, caso não der certo use o Chr(13)

 

tmpTexto = tmpTexto & " Plano: " & Request.Form("plat")&Chr(13)
tmpTexto = tmpTexto & " Dominio: " & Request.Form("dom")&Chr(13)