Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

AspEmail

$
0
0
Boa tarde
 
    
Tenho uma página com os campos :
 
Nome :
 
Email :
 
Telefone :
  
Mensagem :
 
 
Preciso que após o envio  chegue no meu e-mail as informações assim :
 
Nome : Carlos albebrto 
 
Email : carlos@uol.com.br
 
Telefone : 3345-4545
  
Mensagem :  aaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
 
 
Porem esta chegando assim :
 
 
Nome : Carlos albebrto  Email : carlos@uol.com.br Telefone : 3345-4545 Mensagem :  aaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
 
 
 
Como eu resolvo isso ?
<% 




 'Seta o componente correto.
 Set Mail = Server.CreateObject("Persits.MailSender") 
 'Endereço de envio de e-mail. Use um endereço válido do seu site
 Mail.From = "sac@redelumen.com.br" 
 'Nome do remetente. Escolha um nome de fácil identificação
 Mail.FromName = "Teste" 
 'E-mail e nome do DESTINATÁRIO. Não precisa ser um e-mail do seu site. 
 Mail.AddAddress "ricardo@lifenetwork.com.br", "Nome do Destinatário"
 'Se quiser adicionar cópias, basta incluir quantas linhas forem necessárias. Se não precisar de cópias, exclua a linha abaixo
 Mail.AddCC "copia@site.com.br", "Nome do destinatário da cópia"
 'Assunto da mensagem 
 Mail.Subject = "E-MAIL DE EXEMPLO DE USO" 
 'Corpo (texto) da mensagem 

 Mail.Body = "Nome: "& Request.form("Nome") & _
"E-Mail: "& Request.form("Email") & _
"Mensagem: "& Request.form("Mensagem")

 
 
 'Servidor responsável pelo envio da mensagem. Pode ser localhost ou smtp.seusite.com.br
 Mail.Host = "localhost" 
 'Envia o e-mail conforme os ítens especificados
 Mail.Send 
 'Destroi o objeto após o uso.
 Set Mail = Nothing
%> 


Viewing all articles
Browse latest Browse all 1214