Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

phpricardo

Email com CDONTS

Recommended Posts

Não entendo o e-mail chega, mas não vem com os dados do formulário. =(

Alguém me ajude?

 

<%
Nome =  Response.Write(Request.Form("nome"))
Email =  Response.Write(Request.Form("email"))
Telefone =  Response.Write(Request.Form("telefone"))
Comentarios =  Response.Write(Request.Form("comentarios"))

Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "atendimento@xaxaxa.com.br" 
Mailer.To = "psddpdasdasdado@gmail.com" 
Mailer.BodyFormat = 1 
Mailer.MailFormat = cdoMailFormatText 
Mailer.Subject = "Assunto do E-mail"
[b]Mailer.Body = "Nome: " & Nome & [/b]
Mailer.Send
Set Mailer = Nothing
%> 

Compartilhar este post


Link para o post
Compartilhar em outros sites

adicione os dados do formulario

 

Mailer.Body = "Nome: " &Nome& "<br> Email: "& Email

e retire o response.Write

Nome =  Response.Write(Request.Form("nome"))

deixar assim em todos

Nome =  Request.Form("nome")

o response.Write serve para imprimir na tela e nao para pegar dados

Compartilhar este post


Link para o post
Compartilhar em outros sites

Putz kara.. vlw era o Response.Write(Request.Form literalmente que tava "bloqueando" o conteudo.

Mas so o <br> que nao ta dando.. mas vamo ver.

 

vlw.

Compartilhar este post


Link para o post
Compartilhar em outros sites

O br seria assim:

Comentarios =  Replace(Request.Form("comentarios"), chr(13), "<br>")

Meu caro agradeço ajuda, mas continua ainda a não funcionar. =(

Compartilhar este post


Link para o post
Compartilhar em outros sites

existem alguns exemplos de como enviar email em HTML no laboratorio de scripts, dá uma olhadinha lá, k vai te ajudar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Resolveu-se... fiz dessa maneia e agra ta funcionando.:}

vlw força!

 

 

.....
set objMail = server.createobject("CDONTS.NewMail")
objMail.From = "casdasl@xxx.com.br"
objMail.To =   "casdasdal@xxxxx.br"
objMail.Subject = "Atendimento "
objMail.Body = "<html><body>Atendimento <br><br> Nome: " & Nome & "<br>E-mail: " & Email & "<br>Telefone: " & Telefone & "<br>Comentarios: " & Comentarios & _

"<br></body></html>"

objMail.BodyFormat = 0

objMail.MailFormat = 0

objMail.Send

Response.Write "Mensagem Enviada"

set objMail = Nothing
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

beleza , kker coisa posta , ae....

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.