Receber e-mail da compra do site

[Carlos Moreira 0]

Ola pessoal estou recebendo as informações por e-mail certo?

 

o código que eu uso é este:

 

<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "SITE - Formulário" Mailer.FromAddress= "e-mail@dominio.net" Mailer.RemoteHost = "mail.dominio.net" Mailer.AddRecipient "Carlos", "email@dominio.net" Mailer.Subject = "Compra" Mailer.BodyText = "Formulário" & VbCrLf & "Contato" Mailer.BodyText = "Referencia: " & Request.Form("referencia")& vbCrLf Mailer.BodyText = "Quantidade: "  & Request.Form("quantidade") & vbCrLf if Mailer.SendMail then Response.redirect "faleconoscoresp.asp" else Response.Write "Mail send failure. Error was " & Mailer.Response end if%>

Ele chega assim no e-mail

 

Site - Formulário

 

Compra

 

Referencia: 1234; 123312; 4534534; 3123123

Quantidade: 3; 5; 1; 7

 

Certo?

 

Preciso que isso chegasse em tabela

onde ficaria mais ou menos assim

 

Referencia | Quantidade

1234 | 3

123312 | 5

4534534 | 1

3123123 | 7

 

Como faço isso???

[Anderson Roberto 0]

Seta a propriedade de formato de e-mail do objeto Mailer como HTML e cria uma tabela no .Body.

[Carlos Moreira 0]

Valeu Anderson, mas sou um pouco leigo no assunto poderia me passar apenas um exemplo de como devo proceder?Valeu!

[Anderson Roberto 0]

Tenta assim:

<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "SITE - Formulário"Mailer.FromAddress= "e-mail@dominio.net"Mailer.RemoteHost = "mail.dominio.net"Mailer.AddRecipient "Carlos", "email@dominio.net"Mailer.ContentType = "text/html" ' formatação htmlMailer.Subject = "Compra"body = "Formulário" & VbCrLf & "Contato"body = body & "<table>"body = body & "<tr><td>Referencia: " & Request.Form("referencia")& "</td>" & vbCrLfbody = body & "<td>Quantidade: "  & Request.Form("quantidade") & "</td></tr>" & vbCrLfbody = body & "</table>"Mailer.BodyText = bodyif Mailer.SendMail thenResponse.redirect "faleconoscoresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend if%>

[Carlos Moreira 0]

Valeu Anderson funcionou certinho, só faltou uma coisa!

 

estou recevendo ele assim:

 

Formulário Contato

 

Referencia: 0014, 0094, 0036 Quantidade: 3, 6, 1

Valor: 8,90, 2,80, 11,50 Total: R$ 55,00

 

 

Teria que recebe-lo assim:

 

Referencia: 0014 Quantidade: 3

Referencia: 0094 Quantidade: 6

Referencia: 0036 Quantidade: 1

 

Total 55,00

 

Entende!

[Anderson Roberto 0]

A referencia e a quantidade estão vindo de onde???Antes de mandar o e-mail da um Response.Write nesses valores pra saber o que tá retornando.

[Carlos Moreira 0]

Está vindo do carrinho de compras, por isso tem mais de uma referencia e mais de uma quantidade, tem mais informações ainda mas só deixei essas duas para nao complicar à vcs, depois eu complemente aqui!Sobre o Response.Write não entendi!

[Anderson Roberto 0]

Antes de enviar o e-mai faz isso:

Response.Write Request.Form("referencia")

E vê o que aparece.

[Carlos Moreira 0]

coloco ele assim???

 

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "SITE - Formulário"

Mailer.FromAddress= "e-mail@dominio.net"

Mailer.RemoteHost = "mail.dominio.net"

Mailer.AddRecipient "Carlos", "email@dominio.net"

 

Mailer.ContentType = "text/html" ' formatação html

 

Mailer.Subject = "Compra"

body = "Formulário" & VbCrLf & "Contato"

body = body & "<table>"

body = body & "<tr><td>Referencia: " & Response.Write Request.Form("referencia")& "</td>" & vbCrLf

body = body & "<td>Quantidade: " & Response.Write Request.Form("quantidade") & "</td></tr>" & vbCrLf

body = body & "</table>"

 

Mailer.BodyText = body

 

if Mailer.SendMail then

Response.redirect "faleconoscoresp.asp"

else

Response.Write "Mail send failure. Error was " & Mailer.Response

end if

%>

[Anderson Roberto 0]

Não, assim:

<%Response.Write Request.Form("referencia")Response.Write Request.Form("quantidade")Response.EndSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "SITE - Formulário"Mailer.FromAddress= "e-mail@dominio.net"Mailer.RemoteHost = "mail.dominio.net"Mailer.AddRecipient "Carlos", "email@dominio.net"Mailer.ContentType = "text/html" ' formatação htmlMailer.Subject = "Compra"body = "Formulário" & VbCrLf & "Contato"body = body & "<table>"body = body & "<tr><td>Referencia: " & Response.Write Request.Form("referencia")& "</td>" & vbCrLfbody = body & "<td>Quantidade: " & Response.Write Request.Form("quantidade") & "</td></tr>" & vbCrLfbody = body & "</table>"Mailer.BodyText = bodyif Mailer.SendMail thenResponse.redirect "faleconoscoresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend if%>

[Carlos Moreira 0]

esta retornando este mensagem pra mimInternal Server Erroro que poderia ser pessoal?

[Anderson Roberto 0]

Não tem mais detalhes???

Verifique as configurações do seu browser, veja se está desmarcada a opção 'Mostrar URL's amigáveis' na aba 'Avançado' menu 'Ferramentas -> Opções da Internet'.