formatar e-mail de resposta com asp

[Carlos Moreira 0]

Ólá pessoal tudo bem?

 

Tenho um script que me envia e-mail a partir de um pedido de orçamento ou seja de um "carrinho", dele vem vários resultados de REFERENCIA e QUANTIDADE.

 

hoje estou recebendo assim:

 

Formulário Contato

 

Referencia:.........Quantidade:

0931, 1002 ............2, 1

 

 

Precisaria receber assim:

 

Referencia ......... Quantidade

0931........................2

1002........................1

 

*desconsiderar os ....... acima usei eles para poder dar aparencia de tabelas

 

Se perceberem os resultados vem separando por "," e teria que vir como no exemplo acima!

 

 

Este é meu código:

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

[Rodrigo1 0]

então...

você dá o split na referencia primeiro, e guarda em posicoes de um array a primeira e a segunda palavra

array(1) arrey(2)

vArray = Split (vReferencia , ",")Response.Write(vArray(1))Response.Write(vArray(2))

resolve?!

noix

abx

[Carlos Moreira 0]

Rodrigo nao tenho nem como agradecer!!!estou precisando disso muito urgente mesmo, mas como eu nunca usei array, você poderia dar um tapa no meu código acima e me passar como monto ele, e como posso resgatá-lo apenas um exemplo!!!!você entendeu o que quero fazer né na explicação acima ???Abração kra!!!

[Rodrigo1 0]

to vendo láow...q q essa func faz?VbCrLf

[Carlos Moreira 0]

Praticamente nada só passa p/ proxima linha!

[Rodrigo1 0]

<%Ae...foi acho...se der post ae por favor..pra saber [code]'----------------------------DIM e RequestDIM vQtd, vRef, vQtd_Ar, vRef_ArReDIM vQtd_Ar as ArrayReDIM vRef_Ar as ArrayvQtd = Request.Form("quantidade")vRef = Request.Form("referencia")'---------------------Split , guarda no ArrayvQtd_Ar = Split(vQtd , ",")vRef_Ar = Split(vRef , ",")'--------------------------Mailer ------------------------Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "SITE - Formulário"Mailer.FromAddress= "carlos@dominio.com"Mailer.RemoteHost = "mail.dominio.com.br"Mailer.AddRecipient "Carlos", "carlos@dominio.com"Mailer.ContentType = "text/html" ' formatação htmlMailer.Subject = "Compra"body = "Pedido" & VbCrLf & "Conferir pedido"body = body & "<table>"body = body & "<tr><td colspan=""2"">Referencia:""</td>"body = body & "<td colspan=""2"">Quantidade""</td>"body = body & "</tr>"body = body & "<tr>"body = body & "<td>" & vQtd_Ar(1) & "</td>"body = body & "<td>" & vRef_Ar(1) & "</td>"body = body & "<td>" & vQtd_Ar(2) & "</td>"body = body & "<td>" & vRef_Ar(2) & "</td>"body = body & "</tr>"body = body & "</table>"Mailer.BodyText = bodyif Mailer.SendMail thenResponse.redirect "faleconoscoresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend if%>

[Carlos Moreira 0]

Rodrigão não deu caro e o pior é que nao mostra o erro só falaInternal Server Erroro que poderia ser não?

[Rodrigo1 0]

cara...tenta tirar o redim..eu ja to em casa...se pa so amanha eu vou mexer nisso denovo...hehmais post ae mano...se der eu ajudo

[Rodrigo1 0]

esse era o erro q tava dando antes nao era?

http://forum.imasters.com.br/index.php?showtopic=232870

eu acho q o problema esta em outro lugar...e nao nessa parte...

assim o array vai exibir as infos separadinhas...

nao e coisa do iis?!

[Rodrigo1 0]

tenta com CDOSYS....

• Utilizando o CDOSYS para Enviar Mensagens	  Utilizando o CDOSYS para Enviar Mensagens O CDOSYS é a relação nova e melhorada da Microsoft para envio de e-mail, oferecendo toda a mesma funcionalidade que o CDONTS.Segue abaixo um exemplo:<%'##### Variáveis #####'v_de conterá o e-mail do remetente da mensagem no formato:'Nome <e-mail@dominio> ou somente o e-mailv_de = "Seu nome<eu@MeuDominio.com.br>"'v_para conterá o e-mail do destinatário da mensagem no formato:'Nome <e-mail@dominio> ou somente o e-mailv_para = "Nome da pessoa<email@dominio.com>"'v_respondepara poderá conter o e-mail para onde a resposta da mensagem será enviada no formato:'Nome <e-mail@dominio> ou somente o e-mailv_respondepara = "Nome da pessoa<email@dominio.com>"'v_anexo conterá o caminho físico do arquivo que irá anexo à mensagem.'Substitua LOGIN pelo do seu FTP e TESTE pelo diretório do arquivov_anexo = "e:\home\LOGIN\web\TESTE\anexo.jpg"'v_anexoURL conterá a URL de um arquivo que deseja anexar à mensagem.v_anexoURL = "http://www.dominio.com.br/imagem/nome_arquivo.jpg"'v_assunto terá o assunto da mensagemv_assunto = "Teste do CDOSYS"'v_corpo terá o Conteúdo da mensagemv_corpo = "Teste do componente CDOSYS"'##### Envio do e-mail #####'Cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'Cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"'Porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")='>http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25'Porta do CDOobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'TimeoutobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.update'Atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'configura o remetenteobjCDOSYSMail.From = v_de'configura o destinatárioobjCDOSYSMail.To = v_para'configura o reply-to'objCDOSYSMail.ReplyTo = v_respondepara'Anexo.'objCDOSYSMail.AddAttachment(v_anexo)'Anexa um arquivo que esta em uma URL'objCDOSYSMail.AddAttachment v_anexoURL'configura o assuntoobjCDOSYSMail.Subject = v_assunto''configura o conteúdo da mensagemobjCDOSYSMail.TextBody = v_corpo'para envio da mensagem no formato html altere o TextBody para HtmlBody'objCDOSYSMail.HtmlBody = v_corpo'objCDOSYSMail.fields.update'Envia o e-mailobjCDOSYSMail.Send'Destrói os objetosSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingresponse.write "E-mail enviado para "&v_para&" ..."%>• Utilizando o CDOSYS para Enviar Mensagens - Plano de RevendaO CDOSYS é a relação nova e melhorada da Microsoft para envio de e-mail, oferecendo toda a mesma funcionalidade que o CDONTS.Segue abaixo um exemplo:<%'cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"'porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDOobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeoutobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30objCDOSYSCon.Fields.update'atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetenteobjCDOSYSMail.From = "eu@MeuDominio.com.br"'e-mail do destinatárioobjCDOSYSMail.To = "destinatario@dominio.com.br"'assunto da mensagemobjCDOSYSMail.Subject = "Teste do CDOSYS"'conteúdo da mensagemobjCDOSYSMail.TextBody = "Teste do componente CDOSYS"'para envio da mensagem no formato html altere o TextBody para HtmlBody'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"'objCDOSYSMail.fields.update'envia o e-mailobjCDOSYSMail.Send'destrói os objetosSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingresponse.write "E-mail enviado para destinatario@dominio.com.br ..."%>

[Carlos Moreira 0]

Não é kra estou fazendo direto do servidor já!!!

 

o código que você me passou esta certo o raciocinio!!! é isso mesmo!!! só que deve estar alguma coisa errada no código, entende!!!

 

tente usálo em algum lugar ai!!! peganco as informações "referencia e quantidade", e teste!!!

 

kra se fosse soubesse a correria que esta sendo por causa disso, hehehhee

 

Estou precisando realmente disso, preciso entregar na segunda o trabalho!!!

 

Veja bem, o código que vou postar abaixo esta certinho só que ele lista assim:

 

Formulário Contato

 

Referencia:.........Quantidade:

0931, 1002 ............2, 1

 

 

Como tem mais de uma informação Referencia e Quantidade

ele esta separando por virgula e gostaria que colocasse em ordem de coluna entende!!!!

 

Voltando a enfatizar o código esta certo só preciso que chegue dessa forma:

 

Formulário Contato

 

Referencia ......... Quantidade

0931........................2

1002........................1

 

Eis o código:

 

<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "SITE - Formulário"Mailer.FromAddress= "carloswm@gmail.com"Mailer.RemoteHost = "mail.dominio.com.br"Mailer.AddRecipient "Carlos", "carloswm@gmail.com"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>" & vbCrLfbody = body & "<td>Valor: "  & Request.Form("valor") & "</td>" & vbCrLfbody = body & "<td>Total: "  & Request.Form("total") & "</td></tr>" & vbCrLfbody = body & "</table>"Mailer.BodyText = bodyif Mailer.SendMail thenResponse.redirect "faleconoscoresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend if%>

[Michael_c 0]

Carlos,

 

Vamos lá, sobrou um tempinho e acho que essa solução vai te ajudar, pelo menos eu testei aqui e funcionou!

 

<%' Aqui a declaração básica das variáveisDim referencia, quantidade, valor, separa_referencia, separa_quantidade, separa_valor'Associação básica dos campos do formulário as variáveis'O comando TRIM é para retirar os espaços desnecessários que vierem com as variáveisreferencia = Trim(Request.Form("referencia"))quantidade = Trim(Request.Form("quantidade"))valor	  = Trim(Request.Form("valor"))'Abaixo o ARRAY para a separação pela vírgula dos dadossepara_referencia = Split(referencia,",")separa_quantidade = Split(quantidade,",")separa_valor = Split(valor,",")'Aqui a mesma declaração que você vem usando para criar o objeto do e-mailSet Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "SITE - Formulário"Mailer.FromAddress= "carloswm@gmail.com"Mailer.RemoteHost = "mail.dominio.com.br"Mailer.AddRecipient "Carlos", "carloswm@gmail.com"Mailer.ContentType = "text/html" ' formatação htmlMailer.Subject = "Compra"body = "Formulário" & VbCrLf & "Contato"'Abaixo a tag do cabeçalho da tabelabody = body & "<table border='1' align='left' cellpadding='4' cellspacing='0'>"body = body & "<tr>" & vbCrLfbody = body & "<td>Referência:</td>" & vbCrLfbody = body & "<td>Quantidade:</td>" & vbCrLfbody = body & "<td>Valor:</td>" & vbCrLfbody = body & "<td>Total:</td></tr>" & vbCrLf'Aqui vem o principal, o VETOR que busca a separação das variáveis do ARRAY e destribui nas linhas e colunas da tabelafor i=lbound(separa_referencia) to ubound(separa_referencia)body = body & "<tr>"body = body & "<td>" & separa_referencia(i) & "</td>"body = body & "<td>" & separa_quantidade(i) & "</td>"body = body & "<td>R$ " & formatnumber(separa_valor(i),2) & "</td>"body = body & "<td>R$ "& formatnumber(separa_quantidade(i) * separa_valor(i),2) &"</td>"body = body & "</tr>"nextMailer.BodyText = bodyif Mailer.SendMail thenResponse.redirect "faleconoscoresp.asp"elseResponse.Write "Mail send failure. Error was " & Mailer.Responseend if%>

 

Espero que te ajude.

 

Falow!

 

Michael C.

[Carlos Moreira 0]

Michael_c não sei como agradecer mesmo kra, CERTINHOOOOOOOO!!!! MUITO BOM ó Código!!!!é até legal deixar disponivel isso pra galera!!!!!!!!!!!!!!!!Abração bom final de semana!!!!!!!!!!

[Carlos Moreira 0]

Michael_c to fazendo uns testes aqui, o formato funcionou certinho mesmo!!!mas as informações estao vindo as mesmas toda hora!!!!!!!!!Pq sera???