Ir para conteúdo

POWERED BY:

Arquivado

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

rubensxxx3

Erro do CDOSYS

Por , em ASP Clássico

Recommended Posts

rubensxxx3    0

rubensxxx3
Postado

Amigos,

 

estou usando um script para envio de forms utilizando o CDOSYS. Estava funcionando, mas começou a dar esse erro:

 

Error Type:

CDO.Message.1 (0x80040213)

The transport failed to connect to the server.

 

 

Pesquisei na Net e me parece que deve ser alguma coisa no servidor SMTP... Tudo muito vago...

 

Gostaria de saber se alguém sabe exatamente que erro é esse e como resolver.

 

Fico muito agradecido.

 

Abaixo, segue o script:

 

 

ASP
<%

Dim ObjSendMail

Set ObjSendMail = CreateObject("CDO.Message")

 

Dim msgTxt

Dim var_matricula, var_mail, var_telefone

 

var_matricula = Request.QueryString("matricula")

var_mail = Request.QueryString("mail")

var_telefone = Request.QueryString("telefone")

 

msgTxt = "<html><head></head><body bgcolor='#FFFFFF'><p align='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>Assistência Jurídica</p><p aligh='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><br><b>E-MAIL:</b> <font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"

msgTxt = msgTxt & var_mail

msgTxt = msgTxt & "</font><br><br><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>TELEFONE:</b> <font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"

msgTxt = msgTxt & var_telefone

msgTxt = msgTxt & "</font><br><br><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>MATRÍCULA:</b> <font face='Verdana, Arial, Helvetica, sans-serif' size='2'>"

msgTxt = msgTxt & var_matricula

msgTxt = msgTxt & "</font></p></body></html>"

     

'This section provides the configuration information for the remote SMTP server.

     

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.assist.org.br"

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

     

' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com"

'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"

     

ObjSendMail.Configuration.Fields.Update

     

'End remote SMTP server configuration section==

     

ObjSendMail.To = "cpd_sistemas@assist.org.br"

ObjSendMail.Subject = "Assistência Jurídica"

ObjSendMail.From = "cpd_sistemas@assist.org.br"

     

' we are sending a text email.. simply switch the comments around to send an html email instead

ObjSendMail.HTMLBody = msgTxt

'ObjSendMail.TextBody = "this is the body"

     

ObjSendMail.Send

     

Set ObjSendMail = Nothing

 

' mostra um alerta informando que a mensagem foi enviada com sucesso

        Response.Write("<script language=""JavaScript"">")

        Response.Write("alert('Sua mensagem foi enviada com sucesso');")

        Response.Write("location.href = ""http://www.assist.org.br/2007_r/2via.asp"" ")

        Response.Write("</script>")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Qual é o seu SO ? e qual a versão do seu IIS ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

DBB    0

DBB
Postado

Pode ser que o tipo de autenticação com o servidor do e-mail tenha sido modificado, com isso o seu script parou de enviar, você teria que verificar se foi modificado e se foi alterar seu código da maneira correta da autenticação.

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Se nao me engano a Microsoft não da mais suporte para os ObjSendMail.Configuration.Fields.Item, ou os caminhos são outros, retire essas configurações e faça um teste exugando o codigo o maximo que puder.

 

 

http://www.w3schools.com/asp/asp_send_email.asp

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>
Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

rubensxxx3    0

rubensxxx3
Postado

dataset:

 

Se eu retiro as configurações de acesso ao SMTP não funciona. Dá "Acess Denied".

 

Danilo: Sim. Pode ser que tenha sido mudado o tipo de autenticação... vou verificar com o servidor.

 

Thanks!

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