Ir para conteúdo

POWERED BY:

Arquivado

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

kania

[Resolvido] Erro ao enviar email

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Olá pessoal, bom dia a todos e uma ótima semana.

 

Gente desde ontem estou tentando corrigir ou achar um erro que esta dando no meu script de envio de email, já utlizo o mesmo script a muito tempo, e agora o bicho resolveu dar pau, abaixo o script, se alguém souber o porque do erro

 

If Request.QueryString("E") = "S" Then

On Error Resume Next

'## configurações do componente CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'Cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 

'Porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 

'Porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSCon.Fields.update 

'Atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'configura o remetente 
objCDOSYSMail.From = "jorgekania@grupoeagle.com.br" 

'configura o destinatário 
objCDOSYSMail.To = Email

'configura o reply-to 
'objCDOSYSMail.ReplyTo = EMAIL

'enviar com cópia
'objCDOSYSMail.Cc = EMAIL

'configura o assunto 
objCDOSYSMail.Subject = "JRM Info: Orçmento Nº "&NOrc

''configura o conteúdo da mensagem 

objCDOSYSMail.HtmlBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body>" _
& "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" _
& "<tr>" _
& "<td width=""19%""><img src=""http://www.grupoeagle.com.br/jrm_info/imagens/Logo_JRM_Nova.png"" width=""200"" height=""150"" /></td>" _
& "<td colspan=""3"" valign=""top""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" _
& "<tr>" _
& "<td id=""NomeEmpresa"">JRM Info</td>" _
& "<td align=""center"" id=""NomeEmpresa"" bgcolor=""#CCCCCC""><span class=""DadosGerais"">Orçamento nº</span><br />"&NOrc&"</td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""2"" class=""DadosGerais"">Estrada de Santa Cândida, 474 - Curitiba - PR</td>" _
& "</tr>" _
& "<tr>" _
& "<td class=""DadosGerais"">Email: junior_molletta@hotmail.com</td>" _
& "<td class=""DadosGerais"">Telefone: (41) 9162-6903</td>" _
& "</tr>" _
& "</table></td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""4"" height=""5""></td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""4"" class=""DadosGerais""><strong>Cliente:</strong> "&Rs("Nome")&"</td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""2"" class=""DadosGerais""><strong>Email:</strong> "&Rs("Email")&"</td>" _
& "<td colspan=""2"" class=""DadosGerais""><strong>Telefone:</strong> "&Rs("Tel_com")&"</td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""4"" height=""5""></td>" _
& "</tr>" _
& "</table>" _
& "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" id=""TbCarrinho"">" _
& "<tr id=""TrTitulos"">" _
& "<td align=""center"">Cod</td>" _
& "<td align=""center"">Produto</td>" _
& "<td align=""center"">Quant</td>" _
& "<td align=""center"">Preço Unit.</td>" _
& "<td align=""center"">Preço Total</td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""6"" height=""5px""></td>" _
& "</tr>" _

'BUSCO NO BANCO O PRODUTO CONFORME OS DADOS DIGITADOS NO CAMPO
Set RSE = Server.CreateObject("adodb.recordset")
SQL = "select * from jrm_pedidos where Id_Cli =  '"&IdCli&"' and Data_Pedido = '"&DataNova&"'"
RSE.Open SQL,Conn,3,3
Do until RSE.EOF &""_

& "<tr id=""TrProdutos"" bgcolor=""#FFFFFF"">" _
& "<td align=""center"">"&RsE("Cod_Prod")&"</td>" _
& "<td>"&RsE("Produto")&"</td>" _
& "<td align=""center"">"&RsE("Quantidade")&"</td>" _
& "<td align=""right"">"&FormatCurrency(RsE("Valor_Prod"),2)&"</td>" _
& "<td align=""right"">"&FormatCurrency(RsE("Valor_total"),2)&"  </td>" _
& "</tr>" _

RSE.movenext 
loop

& "<tr>" _
& "<td colspan=""6"" height=""5""></td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""6"" align=""right"">" _
& "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""TrTotais"">" _
& "<tr>" _
& "<td width=""80%"" align=""right"">Total   </td>" _
& "<td width=""20%"" align=""center"">" _
& "" & FormatCurrency(Total,2) & "     "_
& "</td>" _
& "</tr>" _
& "</table>" _
& "</td>" _
& "</tr>" _
& "</table>" _
& "</body>" _
& "</html>"


RsE.Close
Set RsE = Nothing

'### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###

' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send 
' ### DESTRÓI OS OBJETOS ### 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "<script>alert(""Mensagem enviada com sucesso!"")</script>"

End IF

o erro diz ser na linha

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/jrm_info/imprimir_orcamento.asp, line 253

 

& "<tr>" _

 

Porem já efetuei mudanças na linha e o erro continua, o mais estranho é que coloquei um On Error Resume Next para ignorar o erro mas memso assim continua o problema

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tire o On Error Resume Next até eliminar o erro

 

qual o erro atual e em que linha ocorre?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Mano simplifique, tente assim

 

<%
If Request.QueryString("E") = "S" Then

'## configurações do componente CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

'Atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'configura o remetente
objCDOSYSMail.From = "jorgekania@grupoeagle.com.br"

'configura o destinatário
objCDOSYSMail.To = Email

'configura o reply-to
'objCDOSYSMail.ReplyTo = EMAIL

'enviar com cópia
'objCDOSYSMail.Cc = EMAIL

'configura o assunto
objCDOSYSMail.Subject = "JRM Info: Orçmento Nº "&NOrc

''configura o conteúdo da mensagem
mensagem = "<html>"
mensagem = "<head>"
mensagem = "</head>"
mensagem = "<body>"
mensagem = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
mensagem = "<tr>"
mensagem = "<td width=""19%""><img src=""http://www.grupoeagle.com.br/jrm_info/imagens/Logo_JRM_Nova.png"" width=""200"" height=""150"" /></td>"
mensagem = "<td colspan=""3"" valign=""top""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
mensagem = "<tr>"
mensagem = "<td id=""NomeEmpresa"">JRM Info</td>"
mensagem = "<td align=""center"" id=""NomeEmpresa"" bgcolor=""#CCCCCC""><span class=""DadosGerais"">Orçamento nº</span><br />"&NOrc&"</td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""2"" class=""DadosGerais"">Estrada de Santa Cândida, 474 - Curitiba - PR</td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td class=""DadosGerais"">Email: junior_molletta@hotmail.com</td>"
mensagem = "<td class=""DadosGerais"">Telefone: (41) 9162-6903</td>"
mensagem = "</tr>"
mensagem = "</table></td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""4"" height=""5""></td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""4"" class=""DadosGerais""><strong>Cliente:</strong> "&Rs("Nome")&"</td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""2"" class=""DadosGerais""><strong>Email:</strong> "&Rs("Email")&"</td>"
mensagem = "<td colspan=""2"" class=""DadosGerais""><strong>Telefone:</strong> "&Rs("Tel_com")&"</td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""4"" height=""5""></td>"
mensagem = "</tr>"
mensagem = "</table>"
mensagem = "<table width=""100%"" cellspacing=""0"" cellpadding=""0"" id=""TbCarrinho"">"
mensagem = "<tr id=""TrTitulos"">"
mensagem = "<td align=""center"">Cod</td>"
mensagem = "<td align=""center"">Produto</td>"
mensagem = "<td align=""center"">Quant</td>"
mensagem = "<td align=""center"">Preço Unit.</td>"
mensagem = "<td align=""center"">Preço Total</td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""6"" height=""5px""></td>"
mensagem = "</tr>"

'BUSCO NO BANCO O PRODUTO CONFORME OS DADOS DIGITADOS NO CAMPO
Set RSE = Server.CreateObject("adodb.recordset")
SQL = "select * from jrm_pedidos where Id_Cli =  '"&IdCli&"' and Data_Pedido = '"&DataNova&"'"
RSE.Open SQL,Conn,3,3
Do until RSE.EOF

mensagem = "<tr id=""TrProdutos"" bgcolor=""#FFFFFF"">"
mensagem = "<td align=""center"">"&RsE("Cod_Prod")&"</td>"
mensagem = "<td>"&RsE("Produto")&"</td>"
mensagem = "<td align=""center"">"&RsE("Quantidade")&"</td>"
mensagem = "<td align=""right"">"&FormatCurrency(RsE("Valor_Prod"),2)&"</td>"
mensagem = "<td align=""right"">"&FormatCurrency(RsE("Valor_total"),2)&"</td>"
mensagem = "</tr>"

RSE.movenext
loop

mensagem = "<tr>"
mensagem = "<td colspan=""6"" height=""5""></td>"
mensagem = "</tr>"
mensagem = "<tr>"
mensagem = "<td colspan=""6"" align=""right"">"
mensagem = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""TrTotais"">"
mensagem = "<tr>"
mensagem = "<td width=""80%"" align=""right"">Total</td>"
mensagem = "<td width=""20%"" align=""center"">"
mensagem = FormatCurrency(Total,2)
mensagem = "</td>"
mensagem = "</tr>"
mensagem = "</table>"
mensagem = "</td>"
mensagem = "</tr>"
mensagem = "</table>"
mensagem = "</body>"
mensagem = "</html>"

objCDOSYSMail.HtmlBody = mensagem

RsE.Close
Set RsE = Nothing

'### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###

' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send
' ### DESTRÓI OS OBJETOS ###
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "<script>alert(""Mensagem enviada com sucesso!"")</script>"

End IF
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não entendi o que altera com isso patrique

 

mensagem = mensagem

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

se o code estava funcionando e parou do nanda, é estranho

ja tive problemas assim, com codigos do CDOSYS e era instabilidade do server, tente entrar em contato

com seu host e este outro script, pegue aki mesmo no forum....

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Opa Patrique, cara eu também não entedi o porque de colocar

mensagem = mensagem

de qualquer forma eu coloquei e não resolveu, o email continua chegando vazio, vem o título, tudo certinho, porem o corpo dele vazio.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na variavel , para ver o k esta sendo passado, e tente rodar outro code, aki do lab. para ver como se porta...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Na verdade o principal erro, não sei se o unico, é que não está concatenando o valor da mensagem com o seu anterior

 

Vou colocar só um trecho de como fez

 

mensagem = "<tr id=""TrProdutos"" bgcolor=""#FFFFFF"">"
mensagem = "<td align=""center"">"&RsE("Cod_Prod")&"</td>"
mensagem = "<td>"&RsE("Produto")&"</td>"
mensagem = "<td align=""center"">"&RsE("Quantidade")&"</td>"
mensagem = "<td align=""right"">"&FormatCurrency(RsE("Valor_Prod"),2)&"</td>"
mensagem = "<td align=""right"">"&FormatCurrency(RsE("Valor_total"),2)&"</td>"
mensagem = "</tr>"

como deveria ser

 

mensagem = mensagem & "<tr id=""TrProdutos"" bgcolor=""#FFFFFF"">"
mensagem = mensagem & "<td align=""center"">"&RsE("Cod_Prod")&"</td>"
mensagem = mensagem & "<td>"&RsE("Produto")&"</td>"
mensagem = mensagem & "<td align=""center"">"&RsE("Quantidade")&"</td>"
mensagem = mensagem & "<td align=""right"">"&FormatCurrency(RsE("Valor_Prod"),2)&"</td>"
mensagem = mensagem & "<td align=""right"">"&FormatCurrency(RsE("Valor_total"),2)&"</td>"
mensagem = mensagem & "</tr>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

que bom que resolveu

 

parabéns

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito