[Resolvido] Problemas com CDOSYS

cmax · Maio 5, 2010

Bom dia, devido troca de serviços de hospedagem arrumei um problema na minha vida.

Meus formularios de contato que utilizava normalmente na outra empresa parou de funcionar e me retorna um erro estranho que nao estou sendo capaz de resolver.

Ja li e reli as dicass que estao no site mas ate o momento nao consegui resolver o problema que se arrastao por 4 dias consecutivos.

Segue abaixo o a mensagem de erro:

Microsoft VBScript runtime error '800a01a8'

Object required: 'objCDOSYSMail'

/contato.asp, line 52

Script com a programaçao:

<%Response.Charset="ISO-8859-1"%>
<%
    	'informações dos campos do formulário
    	strEmpresa = Request.Form("txtEmpresa")
  'strCPF = Request.Form("txtCPF")
  strCNPJ = Request.Form("txtCNPJ")
  
  'strNome = Request.Form("txtnome")
    	strEmail = Request.Form("txtemail")
    	'strNomeAmigo = Request.Form("nomeAmigo")
    	'strEmailAmigo = Request.Form("emailAmigo") 
  'strRazao_social = Request.Form("txtrazao_social")
  strResponsavel = Request.Form("txtContato")
  strDestinatario = ("[email="contato@tzrental.com.br"]contato@tzrental.com.br[/email]")
  'strEmail = Request.Form("email")
  strDDD = Request.Form("txtddd")
  strTelefone = Request.Form("txttelefone")
  strEndereco = Request.Form("txtendereco")
  strBairro = Request.form("txtbairro")
  strCidade = Request.form("txtcidade")
  strUf = Request.Form("txtuf")   	
  strCep = Request.Form("txtcep")
  'strCep2 = Request.Form("cep2")
  strComentario = Request.Form("txtcomentario")
  strCorpo = Request.Form("txtcomentario")
	
  ' Cria a instância para configuração do SMTP
  Set CDOSYSconn = Server.CreateObject("CDO.Configuration")

  ' Endereço do Servidor de SMTP
  CDOSYSconn.Fields("[url="http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]") = "mail.tzrental.com.br"

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

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

  ' Configuração de Timeout
  CDOSYSconn.Fields("[url="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[/url]") = 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 = "[email="fabiano@cmax.com.br"]fabiano@cmax.com.br[/email]"
    	
    	'e-mail do destinatário
    	objCDOSYSMail.To = "[email="contato@tzrental.com.br"]contato@tzrental.com.br[/email]"
    	
    	
    	'assunto da mensagem
    	objCDOSYSMail.Subject = "Contato [url="http://www.tzrental.com.br"]www.tzrental.com.br[/url]"
    	
    	'conteúdo da mensagem
    	objCDOSYSMail.TextBody = "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: [url="http://www.tzrental.com.br/font/b/td"]www.tzrental.com.br</font></b></td[/url]>"
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 height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'><b>Contato</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td height='20' align='left'><font size='2' face='Arial, Helvetica, sans-serif'>" & strResponsavel & " </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><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>DDD</b></font></td>"
'strMensagem = strMensagem & "</tr>"
'strMensagem = strMensagem & "<tr>"
'strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strDDD1 & "</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'>" & strddd & " - " & 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 & "</td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'><b>Cidade</b></font></td>"
strMensagem = strMensagem & "</tr>"
strMensagem = strMensagem & "<tr>"
strMensagem = strMensagem & "<td><font size='2' face='Arial, Helvetica, sans-serif'>" & strCidade & " - " & strUF & "</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'>" & strCorpo & "</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("[url="http://www.tzrental.com.br/obrigado.html"]http://www.tzrental.com.br/obrigado.html[/url]")
%>

Agradeço atençao de todos.

Fico no aguardo de uma diga pra solucionar o problema.

Rodrigo Lemela · Maio 5, 2010

Pensa assim...

Onde você setou esse objeto ?

'e-mail do remetente
objCDOSYSMail.From = "fabiano@cmax.com.br"

'e-mail do destinatário
objCDOSYSMail.To = "contato@tzrental.com.br"


'assunto da mensagem
objCDOSYSMail.Subject = "Contato www.tzrental.com.br"

'conteúdo da mensagem
objCDOSYSMail.TextBody = "strCorpo"

Não foi setado...

Troca o objCDOSYSMail por CDOSYS.

Patrique · Maio 5, 2010

veja este link

http://wiki.locaweb.com.br/pt-br/Cdosys

cmax · Maio 5, 2010

veja este link

http://wiki.locaweb....br/pt-br/Cdosys

Parceiro ate li seu ultimo post mas sinceramente nao consegui compreender mudei a linha informada.

e veja o que esta acontecendo agora.

CDO.Message.1error '8004020d'

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

/contato.asp, line 148

o que é isso os campos estao configurados de maneira correta.

xanburzum · Maio 6, 2010

como esta configureado o smpt, e-mail, senha

olha este exemplo

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = remetente & "<" & emailremetente & ">"
objCDOSYSMail.To = destinatario & "<" & emaildestinatario & ">"
objCDOSYSMail.Subject = assunto
objCDOSYSMail.TextBody = texto
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write("enviado com sucesso!!")

cmax · Maio 12, 2010

Parceiro o erro persiste, conforme me indicou vou enviar linha solicitada.

<%Response.Charset="ISO-8859-1"%>
<%
    	'informações dos campos do formulário
    	strEmpresa = Request.Form("txtEmpresa")
  'strCPF = Request.Form("txtCPF")
  strCNPJ = Request.Form("txtCNPJ")
  
  'strNome = Request.Form("txtnome")
    	strEmail = Request.Form("txtemail")
    	'strNomeAmigo = Request.Form("nomeAmigo")
    	'strEmailAmigo = Request.Form("emailAmigo") 
  'strRazao_social = Request.Form("txtrazao_social")
  strResponsavel = Request.Form("txtContato")
  strDestinatario = ("[email="contato@tzrental.com.br"]contato@tzrental.com.br[/email]")
  'strEmail = Request.Form("email")
  strDDD = Request.Form("txtddd")
  strTelefone = Request.Form("txttelefone")
  strEndereco = Request.Form("txtendereco")
  strBairro = Request.form("txtbairro")
  strCidade = Request.form("txtcidade")
  strUf = Request.Form("txtuf")   	
  strCep = Request.Form("txtcep")
  'strCep2 = Request.Form("cep2")
  strComentario = Request.Form("txtcomentario")
  strCorpo = Request.Form("txtcomentario")
  
   ' 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("[url="http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]"'>http://schemas.microsoft.com/cdo/configuration/smtpserver"]http://schemas.microsoft.com/cdo/configuration/smtpserver[/url]") = "mail.tzrental.com.br"

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

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

  ' Configuração de Timeout
  CDOSYSconn.Fields("[url="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[/url]"'>http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[/url]") = 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

como esta configureado o smpt, e-mail, senha

olha este exemplo

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = remetente & "<" & emailremetente & ">"
objCDOSYSMail.To = destinatario & "<" & emaildestinatario & ">"
objCDOSYSMail.Subject = assunto
objCDOSYSMail.TextBody = texto
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write("enviado com sucesso!!")

xanburzum · Maio 12, 2010

verifique se o endereço de email e SMTP são válidos

cmax · Maio 13, 2010

verifique se o endereço de email e SMTP são válidos

Parceiro checando junto ao meu servidor de hospedagem a configuraçao SMTP esta correta.

Abaixo segue o exemplo que esta no site da revenda:

<% 
' 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
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail simples através do CDOSYS."
' Envia o Email
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
%>

O que estou fazendo de errado??

cmax · Maio 17, 2010

Parceiros o problema do formulario com muito custo e muita insistencia e claro contando com a paciencia de todos o problema foi resolvido.

Consegui fazer funcionar sem o uso das linhas de autenticaçao agora estou precisando utilizar o mesmo form so que este precisa ser autenticado e ainda nao consegui fazer funcionar, acredito que tenha que entrar em contato com meus server pra verificar o motivo

Obrigado.

Arquivado

[Resolvido] Problemas com CDOSYS

Recommended Posts

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo Lemela 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

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

cmax 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante