[Resolvido] Formularios nao estao funcionando sem + nem -

cmax · Novembro 9, 2010

Boa tarde pessoal alguns meses atras com muito esforço e empenho da galera deste forum consegui fazer com que formularios de contato de meus clientes funciona-sem corretamente no servidor onde hospedo os sites.

Acontece que alguns dias atras os mesmos pararam de funcionar sem mais nem menos, ja checkei com a empresa e os mesmo me disseram que esta tudo ok e que nada mudou no servidor caso que me deixou tenso e surpreso.

O erro que aparece em todos os formularios é esse:

1 error '8004020d'

abaixo segue o modelo de um que ate alguns dias atras funcionavam perfeitamente:

<%Response.Charset="ISO-8859-1"%>
<%
 strNome = Request.Form("txtNome")
 strEmpresa = Request.Form("txtEmpresa")
 strEmail = Request.Form("txtEmail")
 strTelefone = Request.Form("txtTelefone")
 strEndereco = Request.Form("txtEndereco")
 strCEP = Request.Form("txtCEP")
 strAoscuidados = Request.Form("txtaos")
 strcomentario = Request.Form("txtMensagem")
 strcorpo = Request.Form("txtMensagem")
 strDestinatario = ("email@dominio.com.br")

' Cria o objeto CDOSYS
 Set objCDOSYSMail = Server.CreateObject("CDO.Message")

 
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
 
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"

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

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

' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")

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

'e-mail do remetente
objCDOSYSMail.From = "strEmail"
 
'e-mail do destinatário
objCDOSYSMail.To = strDestinatario
 
 
'assunto da mensagem
objCDOSYSMail.Subject = "Contato www.dominio.com.br"
 
'conteúdo da mensagem
objCDOSYSMail.htmlBody = "strCorpo"
 
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
' bloco de código que será enviado no corpo do e-mail...

strMensagem = strMensagem & "<table align='center' width='400' border='0' cellspacing='0' cellpadding='0'>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='25' align='center'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Contato: www.emproeng.com.br</font></b></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Nome</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strNome & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Empresa</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strEmpresa & " </font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td> </td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>" 
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Email</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strEmail & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Telefone</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strTelefone & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Telefone</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strTelefone & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Endereço</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strEndereco & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>CEP</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strCep & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Aos Cuidados</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strAoscuidados & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Comentario</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strComentario & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "</table>"

 
'fim do bloco
 
'veja que o strMensagem foi declarado como corpo do e-mail
objCDOSYSMail.HtmlBody = strMensagem
 
 
'objCDOSYSMail.fields.update
'envia o e-mail
'objCDOSYSMail.Send
 
'destrói os objetos
'Set objCDOSYSMail = Nothing
'Set objCDOSYSCon = Nothing
CDOSYS.Send
'Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing
'Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
 
' mostra um alerta informando que a mensagem foi enviada com sucesso
'Response.Write("<table align='center' width='300'><tr><td><img src='email/cmax.gif' border='0'><br>Site indicado com sucesso!!!</td></tr></table>")
'Response.Write("alert('O site foi indicado com sucesso');")
'Response.Write("location.href = ""indique.htm"" ")
'Response.Write("</script>")
Response.Redirect("http://www.uol.com.br")
%>

Fico no aguardo de uma possivel ajuda de voces, e agradeço de antemao.

Vinicius Ianni · Novembro 9, 2010

Além do numero do erro, ele acusa o numero da linha onde esse erro ocorre ?

Por via das duvidas, desabilite a opção de mensagens amigaveis do navegador.

cmax · Novembro 9, 2010

segue a linha com erro completo:

CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/webnovo/contato.asp, line 135

Vinicius Ianni · Novembro 9, 2010

E a linha 135 seria ... ?

cmax · Novembro 9, 2010

135 - CDOSYS.Send

136 - 'Tira o objeto de envio do e-mail da memória

137 - Set CDOSYS = Nothing

138 - 'Tira o objeto de configuração da memória

139 - Set CDOSYSconn = Nothing

~Thiago Lara · Novembro 9, 2010

Pelo erro, está faltando algum dado no caso vindo do seu formulário a ser informado para realizar o envio do e-mail.

Faz o seguinte, dá um

Response.Write var &"<br />"

Onde var é cada uma das suas variaveis vindas do formulário

e no final põe

Response.End

Assim você vai poder "debugar" cada variável que que está vindo do seu formulário e entender possivelmente alguma que não esteja sendo passada corretamente.

Essa forma poderia ser feita com For Each também, mas faz desse jeito que é mais simples de entender.

Abs

xanburzum · Novembro 9, 2010

verifique se o email é válido ???

cmax · Novembro 9, 2010

Fiz como voce me indicou mas acredito que pela minha falta de esperiencia com asp esteja atrapalhando, tudo que me retornou foi uma pagina em branco com uma <br> no topo.

Por favor me mostre onde devo utilizar o response p

xanburzum · Novembro 9, 2010

o SMTP esta correto ?

você esta tenstando ele no localhost ou no server ?

cmax · Novembro 9, 2010

no server mesmo.

Patrique · Novembro 9, 2010

Aqui esta o problema...

strDestinatario = ("email@dominio.com.br")

o certo é assim...

strDestinatario = "email@dominio.com.br"

Portanto troque e faça o teste que provavelmente ira funcionar.

[]'s

cmax · Novembro 9, 2010

ao debugar o conteudo recuperado no formulario me retornou todos os campos preenchidos o que pode ser ja que a suspeita de campos em branco nao existe?

Patrique · Novembro 9, 2010

Velho, faz da maneira como te passei que vai funfar.

cmax · Novembro 9, 2010

rapaziada fiz a correçao sugerida pelo nosso amigo, Patrique e me retornou outro erro.

CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/webnovo/contato.asp, line 144

segue a linha 144:

144 CDOSYS.Send

145 'Tira o objeto de envio do e-mail da memória

146 Set CDOSYS = Nothing

147 'Tira o objeto de configuração da memória

148 Set CDOSYSconn = Nothing

augustoclaro · Novembro 9, 2010

amigo o erro está aqui:

'e-mail do remetente
objCDOSYSMail.From = "strEmail"

para puxar uma variável, use:

'e-mail do remetente
objCDOSYSMail.From = strEmail

isso provavelmente resolverá.

~Thiago Lara · Novembro 9, 2010

Verdade, acabei de ver isso..

ou senão faz assim para não te confundir tanto:

'e-mail do remetente
objCDOSYSMail.From = Request.Form("txtEmail")

Abs

xanburzum · Novembro 9, 2010

por isso ele alegava que o email era inválido....

cmax · Novembro 9, 2010

Fiz alteraçao conforme a indicaçao do Thiago lara e Xamburzaum, mas o erro persiste abaixo o script:

<%Response.Charset="ISO-8859-1"%>
<%
	strNome = Request.Form("txtNome")
	strEmpresa = Request.Form("txtEmpresa")
	'strEmail = Request.Form("txtEmail")
	strTelefone = Request.Form("txtTelefone")
	strEndereco = Request.Form("txtEndereco")
	strCEP = Request.Form("txtCEP")
	strAoscuidados = Request.Form("txtaos")
	strcomentario = Request.Form("txtMensagem")
	strcorpo = Request.Form("txtMensagem")
	strDestinatario = "fabiano@emproeng.com.br"


' Cria o objeto CDOSYS
 Set objCDOSYSMail = Server.CreateObject("CDO.Message")

	
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
		
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.emproeng.com.br"

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

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

' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")

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

'e-mail do remetente
objCDOSYSMail.From = Request.Form("txtEmail")
 	
'e-mail do destinatário
objCDOSYSMail.To = strDestinatario
 	
 	
'assunto da mensagem
objCDOSYSMail.Subject = "Contato www.emproeng.com.br"
 	
'conteúdo da mensagem
objCDOSYSMail.htmlBody = "strCorpo"
 	
'para envio da mensagem no formato html altere o TextBody para HtmlBody 	
' bloco de código que será enviado no corpo do e-mail...

strMensagem = strMensagem & "<table align='center' width='400' border='0' cellspacing='0' cellpadding='0'>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='25' align='center'><b><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Contato: www.emproeng.com.br</font></b></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Nome</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strNome & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Empresa</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strEmpresa & " </font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td> </td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>" 
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Email</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strEmail & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Telefone</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strTelefone & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Endereço</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strEndereco & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>CEP</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strCep & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Aos Cuidados</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strAoscuidados & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Comentario</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strComentario & "</font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "</table>"

 	
'fim do bloco
 	
'veja que o strMensagem foi declarado como corpo do e-mail
objCDOSYSMail.HtmlBody = strMensagem

 
'objCDOSYSMail.fields.update
'envia o e-mail
'objCDOSYSMail.Send
 	
'destrói os objetos
'Set objCDOSYSMail = Nothing
'Set objCDOSYSCon = Nothing
CDOSYS.Send
'Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing
'Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
 	
' mostra um alerta informando que a mensagem foi enviada com sucesso
'Response.Write("<table align='center' width='300'><tr><td><img src='email/cmax.gif' border='0'><br>Site indicado com sucesso!!!</td></tr></table>")
'Response.Write("alert('O site foi indicado com sucesso');")
'Response.Write("location.href = ""indique.htm"" ")
'Response.Write("</script>")
Response.Redirect("http://www.uol.com.br")
%>

xanburzum · Novembro 9, 2010

significa que o e-mail foi rejeitado pelo servidor por algum motivo. Aqui estão algumas coisas que você pode tentar aliviar o problema:

Verifique se o servidor SMTP permite anônimo (não autenticada). Se a sua saída SMTP requer autenticação, consulte aqui

Verifique se o problema é específico para o nome de domínio (s) utilizado nos endereços de e-mail dos destinatários. Por exemplo, alguns usuários se queixaram de que eles podem enviar para os usuários em seus próprios domínios apenas, outros disseram que pode enviar para qualquer domínio, exceto os seus próprios.

Pode ser simplesmente que o endereço de e-mail está sendo rejeitado, mas outras configurações do servidor SMTP estão impedindo a verdadeira mensagem de erro de ser retransmitida propely de volta para o script ASP ... assim verificar que o endereço é válido.

Se você tiver um firewall ou proxy, certifique-se o servidor web está configurado corretamente para passar por ele, que o servidor SMTP sabe sobre ele, e que o proxy permite o acesso a porta 25.

Tente usar um valor SendUsing de 1 (pickup) em vez de 2 (port). Por exemplo a seguinte linha:

.Item(cdoSendUsingMethod) = cdoSendUsingPort

Torna-se

.Item(cdoSendUsingMethod) = cdoSendUsingPickup

cmax · Novembro 12, 2010

Boa tarde,

Caro amigo moderador pode fechar o topico, pois com muito esforço e com auxilio do nosso amigo xamburzaum, localizei o erro.

O erro era causado por que eu estava setando dois objetos de envio da mensagem, coisa de CABAÇO mesmo.

Mas serviu pelo menos aprendi identificar o erro.

Obrigado a todos!!!

Arquivado

[Resolvido] Formularios nao estao funcionando sem + nem -

Recommended Posts

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

~Thiago Lara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

~Thiago Lara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

cmax 0