ASPClassic Email&80040213；传输无法连接到服务器 [英] ASP Classic Email '80040213' The transport failed to connect to the server

问题描述

我知道关于这个问题有很多问题，但似乎没有一个对我有效的答案。

我的应用程序是ASP Classic，运行它的服务器是Windows Server 2000(我知道很旧)，我使用的是Office365服务器，登录电子邮件时我使用的是Office365提供的信息(端口587，正确的用户名和密码，正确的SMTP服务器，TLS设置为True)。

我总是收到"CDO.Message.1错误‘80040213’传输无法连接到服务器"。作为错误消息，它所在的行是.Send命令。

    Const cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const cdoSendUsingPort             = 2
    Const cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    Const cdoSMTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
    Const cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    Const cdoBasic                     = 1
    Const cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername"
    Const cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
    'Use SSL for the connection (False or True)
    Const cdoSendTLS                   = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"

    ' create CDOSYS objects
    Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

    'Set our smtp server
    objCDOSYSCon.Fields.Item(cdoSMTPServer) = "smtp.office365.com"
    objCDOSYSCon.Fields.Item(cdoSMTPAuthenticate) = cdoBasic
    objCDOSYSCon.Fields.Item(cdoSendUserName) = "[e-mail]"
    objCDOSYSCon.Fields.Item(cdoSendPassword) = "password"
    'objCDOSYSCon.Fields.Item(cdoSMTPServerPort) = 587
    objCDOSYSCon.Fields.Item(cdoSendUsingMethod) = cdoSendUsingPort
    objCDOSYSCon.Fields.Item(cdoSendTLS) = True
    objCDOSYSCon.Fields.Item(cdoSMTPConnectionTimeout) = 30

    objCDOSYSCon.Fields.Update

    'Use our new configurations for our mailer
    Set objCDOSYSMail.Configuration = objCDOSYSCon

    strSpecFile = Application("px683_network_downloads_specs") & strSpecFileName

    objCDOSYSMail.From = "[e-mail]"
    objCDOSYSMail.To = "[e-mail]"
    objCDOSYSMail.Subject = "A subject"
    objCDOSYSMail.HTMLBody = "Some text for the body"

    'Normal level of importance
    objCDOSYSMail.Send

    set objCDOSYSMail = nothing
    set objCDOSYSCon = nothing

我也尝试过端口25，但也没有任何运气。如果我使用另一个根本不使用SSL的电子邮件服务(本地服务，而不是Office365)，我没有问题(我注释掉usessl并将端口更改为25)。此外，如果我尝试使用在ASP.NET应用程序中完美运行的其他电子邮件服务，则会遇到相同的问题，该电子邮件服务使用端口25和SSL，而不是Office365服务。

推荐答案

我终于能够通过将应用程序移动到Windows Server2012计算机来使其正常工作。我不得不跳过几个循环，这些循环伴随着在服务器之间移动这么老的东西，但我能够让它工作。

我只能使用端口25,587不起作用。请记住，我在原始服务器上尝试了端口25，但在那里也不起作用。

这篇关于ASPClassic Email&80040213；传输无法连接到服务器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！