Resolved SMTP Error The transport failed to connect to the server.

[Erick_Gomes]

Hello guys,

I need some help.

My server is experiencing an error while trying to send mail through the SMTP server, but over IP, it does not display the error.

Error:

CDO.Message.1 error '80040213'

The transport failed to connect to the server.

Page:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
            
            Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mail.domain.com
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
            
            objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = [email protected]
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
            
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
            
            objCDOSYSCon.Fields.update
            Set objCDOSYSMail.Configuration = objCDOSYSCon
            
            objCDOSYSMail.From = [email protected]
            
            objCDOSYSMail.To = [email protected]
            
            objCDOSYSMail.Subject = subject
            
            objCDOSYSMail.TextBody = message
            
            objCDOSYSMail.Send
            
            'DESTROI OS OBJETOS
            Set objCDOSYSMail = Nothing
            Set objCDOSYSCon = Nothing

Anyone have any suggestions?