AspEmail

[lifenetwork 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
%> 

[Fábio BN 17]

Oi.

 

Tente isso:

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

Abraços!

[wilnet 92]

Ola,

 

Veja esse link, no final dele mostra como vc recuperar as informações enviadas através do "Response.Write"

 

http://www.danilos.sitepessoal.com/formularios/exibirFonte.asp?nomeArquivo=AspEmail.asp

 

Espero ter ajudado,

 

vlw

[xanburzum 169]

apenas concatene as variáveis no body do email,tipo assim:

Set mailer = Server.CreateObject("SoftArtisans.SMTPMail")
 
mailer.UserName= "xxx@xxx.com.br"
mailer.Password= "xxxxxxxx"
 
Mailer.RemoteHost = "smtp.xxxxxxx.com.br"
 
mailer.Port = "587"
 
Mailer.FromName = "Novo Associado"
 
Mailer.FromAddress= "xxxxx@xxx.com.br"

Mailer.AddRecipient "xxxxxx", "xxxxxx@xxxxxx.com.br"
	
Mailer.Subject = "Novo Associado"
	mailer.HtmlText = "Um Novo Associado Se Cadastrou no Sistema.<br><br><a href='http://www.sintchospir.com.br/adm/'>Clique Aqui e Acesse O Sistema para Obter Detalhes</a>" 
 
mailer.priority = 3

	If Mailer.SendMail Then 
	Response.Redirect "finalizar_associados.htm"
	Else 
	Response.Write "Erro " & Mailer.Response 
	End If
	Set Mailer = Nothing
		Else
			Response.Redirect "assosie-se_cadastro_dep.asp?qu=" & n_dep & "&cod=" & cod
		End if