(Resolvido) Envio de Email

arldin · Janeiro 25, 2009

Boa noite amigos gostaria de uma ajuda

Eu tenho um script em asp de envio de email, ele funciona bem, o que eu estou querendo e o sequinte:

Quando eu recebo a mensagem ela vem desta forma

HOMEM ARANA QUANT: 10

TOTAL R$ 100,00

o que eu gostaria de saber e o sequinte tem como ela ficar deste cheito

HOMEM ARANHA QUANT: 10 TOTAL R$ 100,00

Este e uma parte do code

"<strong><p>HOMEM ARANHA QUANT: </strong> "& Request("quant1") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total1") & vbCrLf & _

Desde já agradeço a todos

Rafael Spilki · Janeiro 25, 2009

Tire de seu codigo exatamente a seguinte parte:

vbCrlf&_

Abraços

arldin · Janeiro 25, 2009

Quando eu retirei deu o sequinte erro

Pagina não pode se exibida

Rafael Spilki · Janeiro 25, 2009

Esse trecho específico teria que ter ficado dessa forma:

"<strong><p>HOMEM ARANHA QUANT: </strong> "& Request("quant1") & "<strong><p>TOTAL: </strong> "& Request("total1")

Foi assim q você deixou? Se sim confira o encaminhamento do form e se está com o nome da página correto e etc... se nada disso resolver poste seu código completo, ok?

[]'s Rafael Spilki

arldin · Janeiro 25, 2009

Tambem assim continua dando o mesmo erro

Jonathan Queiroz · Janeiro 25, 2009

Tenta postar o código da página completa !

arldin · Janeiro 26, 2009

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.arldinartfest.com.br"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "arldin@arldinartfest.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "ar592409"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = request.Form("responder")
cdoMessage.To = request.Form("destino")
cdoMessage.Subject = "Formulario de Pedido"

strBody = "<strong><p>FORMULARIO DE PEDIDOS</strong>" & vbCrLf & vbCrLf & _

"<strong><p>HOMEM ARANHA QUANT: </strong> "& Request("quant1") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total1") & vbCrLf & _
"<strong><p>FLAMENGO QUANT: </strong> "& Request("quant2") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total2") & vbCrLf & _
"<strong><p>VASCO QUANT: </strong> "& Request("quant3") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total3") & vbCrLf & _
"<strong><p>BOTAFOGO QUANT: </strong> "& Request("quant4") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total4") & vbCrLf & _
"<strong><p>FLUMINENSE QUANT: </strong> "& Request("quant5") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total5") & vbCrLf & _
"<strong><p>CORINTIANS QUANT: </strong> "& Request("quant6") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total6") & vbCrLf & _
"<strong><p>SÃO PAULO QUANT: </strong> "& Request("quant7") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total7") & vbCrLf & _
"<strong><p>SANTOS QUANT: </strong> "& Request("quant8") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total8") & vbCrLf & _
"<strong><p>PALMEIRAS QUANT: </strong> "& Request("quant9") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total9") & vbCrLf & _
"<strong><p>ATLÉTICO MG QUANT: </strong> "& Request("quant10") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total10") & vbCrLf & _
"<strong><p>CRUZEIRO QUANT: </strong> "& Request("quant11") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total11") & vbCrLf & _
"<strong><p>ATLÉTICO PR QUANT: </strong> "& Request("quant12") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total12") & vbCrLf & _
"<strong><p>CORITIBA QUANT: </strong> "& Request("quant13") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total13") & vbCrLf & _
"<strong><p>PARANÁ QUANT: </strong> "& Request("quant14") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total14") & vbCrLf & _
"<strong><p>INTERNACIONAL QUANT: </strong> "& Request("quant15") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total15") & vbCrLf & _
"<strong><p>GRÊMIO QUANT: </strong> "& Request("quant16") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total16") & vbCrLf & _
"<strong><p>SEL. BRASILEIRA QUANT: </strong> "& Request("quant17") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total17") & vbCrLf & _
"<strong><p>BABY DISNEY QUANT: </strong> "& Request("quant18") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total18") & vbCrLf & _
"<strong><p>BRANCA DE NEVE QUANT: </strong> "& Request("quant19") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total19") & vbCrLf & _
"<strong><p>CINDERELA QUANT: </strong> "& Request("quant20") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total20") & vbCrLf & _
"<strong><p>TURMA DA MÔNICA QUANT: </strong> "& Request("quant21") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total21") & vbCrLf & _
"<strong><p>PALHAÇO QUANT: </strong> "& Request("quant22") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total22") & vbCrLf & _
"<strong><p>BATMAM QUANT: </strong> "& Request("quant23") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total23") & vbCrLf & _
"<strong><p>BABY LOONEY TUNER QUANT: </strong> "& Request("quant24") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total24") & vbCrLf & _
"<strong><p>SHEREK QUANT: </strong> "& Request("quant25") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total25") & vbCrLf & _
"<strong><p>NEMO QUANT: </strong> "& Request("quant26") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total26") & vbCrLf & _
"<strong><p>BARBIE QUANT: </strong> "& Request("quant27") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total27") & vbCrLf & _
"<strong><p>PICA PAU QUANT: </strong> "& Request("quant28") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total28") & vbCrLf & _
"<strong><p>OS INCRIVEIS QUANT: </strong> "& Request("quant29") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total29") & vbCrLf & _
"<strong><p>FÁMILIA DINOSSAURO QUANT: </strong> "& Request("quant30") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total30") & vbCrLf & _
"<strong><p>URSINHOSO CARINHOSOS QUANT: </strong> "& Request("quant31") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total31") & vbCrLf & _
"<strong><p>URSINHO PULF QUANT: </strong> "& Request("quant32") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total32") & vbCrLf & _
"<strong><p>JOVENS TITÃS QUANT: </strong> "& Request("quant33") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total33") & vbCrLf & _
"<strong><p>REI LEÃO QUANT: </strong> "& Request("quant34") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total34") & vbCrLf & _
"<strong><p>HELLO KITY QUANT: </strong> "& Request("quant35") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total35") & vbCrLf & _
"<strong><p>OS DÁLMATAS QUANT: </strong> "& Request("quant36") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total36") & vbCrLf & _
"<strong><p>MORANGUINHO QUANT: </strong> "& Request("quant37") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total37") & vbCrLf & _
"<strong><p>X-MEM QUANT: </strong> "& Request("quant38") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total38") & vbCrLf & _
"<strong><p>O MASCARA QUANT: </strong> "& Request("quant39") & vbCrLf & _
"<strong><p>TOTAL: </strong> "& Request("total39") & vbCrLf & _
"<strong><p>TOTAL GERAL: </strong> "& Request("totalgeral") & vbCrLf & _
"<strong><p>COMPRADOR: </strong> "& Request("nome") & vbCrLf & _
"<strong><p>CEP: </strong> "& Request("cep") & vbCrLf & _
"<strong><p>LOGADOURO: </strong> "& Request("rua") & vbCrLf & _
"<strong><p>NUMEROE: </strong> "& Request("num") & vbCrLf & _
"<strong><p>BAIRRO: </strong> "& Request("bairro") & vbCrLf & _
"<strong><p>CIDADE: </strong> "& Request("cidade") & vbCrLf & _
"<strong><p>ESTADO: </strong> "& Request("estado") & vbCrLf & _
"<strong><p>TELEFONE: </strong> "& Request("tel") & vbCrLf & _
"<strong><p>FAX: </strong> "& Request("fax") & vbCrLf & _
"<strong><p>SEU E-MAIL: </strong> "& Request("responder") & vbCrLf & _
"<strong><p>OPCÕES:</strong>  "& Request("pag") & vbCrLf & _
"<strong><p>OPCÔES DE PAGAMENTO:</strong>  "& Request("oppg") & vbCrLf & _
"<strong>CHEQUE NUM:</strong>  "& Request("numch") & vbCrLf & _
"<strong><p>BANCO NUM:</strong>  "& Request("bcnum") & vbCrLf & _
"<strong>CONTA NUM: </strong> "& Request("cc") & vbCrLf & _
"<strong>BOM PARA:</strong>  "& Request("dta") & vbCrLf & _
"<strong><p>COLOQUE OUTROS TEMAS QUE NÃO TENHA NESTE FORMULARIO </strong></p> "& Request("mensagem")

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.redirect "envio.htm"
%>

Este e o codico completo

Jonathan Queiroz · Janeiro 26, 2009

Aí você ainda não tirou os vbCrLf (código de linha em ASP)

Tenta dar uns replaces nas linhas e vê se funciona !

Se funcionar você edita o código depois (ou faz outro código pra automatizar o processo)

strBody = replace(strBody, vbcrlf, "")

P.S.:

No código acima aparece algum erro ?

arldin · Janeiro 26, 2009

Resolviddo foi so tira a tag <P>

E funcionou

Muito obrigado a todos

Resolviddo foi so tira a tag <P>
E funcionou
Muito obrigado a todos

Resolvido

Entrar

(Resolvido) Envio de Email

Pergunta

arldin

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades