Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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"](http://www.assist.org.br/2007_r/2via.asp)" ")
Response.Write("</script>")%>
Carregando comentários...