ASP经典电子邮件'80040213'运输无法连接到服务器

Question

我知道这里有很多问题，但没有一个似乎有一个适用于我的答案。

我的应用程序是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) = "my.email@email.com" 
    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 = "to.email@email.com" 
    objCDOSYSMail.To = "my.email@email.com" 
    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服务。

Answer 1

我终于能够通过将应用程序移动到Windows Server 2012计算机来实现这个工作。我不得不跳过两个循环，这些循环是在服务器之间移动一些旧的东西，但我能够实现它的工作。

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

Answer 2

我以前有过这个问题。基本上你没有被认证使用服务器上的邮件传输。

无论您的SMTP服务器不允许发送出站邮件（例如停止邮件中继），你的用户名和密码不正确，或者您正在使用需要更高的安全级别的端口来发送邮件。在后面的例子中，它可能是Office365需要SSL认证......也许值得一看。

如果一切都失败，您可以尝试使用第三方提供商。我们在他们的£4.35包装上使用SendInBlue。您可以通过他们的系统发送多达40,000封电子邮件。我们发现，将邮件发送给第三方完全可以解决停止邮件传输功能的服务器设置问题。我们现在将这个用于经典ASP和PHP网站。

希望有所帮助。

Answer 3

对于Office 365和CDO，即使您使用认证，也必须使用端口25。看看你的代码，我认为这个端口是唯一需要改变的地方，但是这里有一个久经考验的配置。

Set iConfg = Server.CreateObject("CDO.Configuration") 
Set Flds = iConfg.Fields 
With Flds 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com" 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myaccount@mydomain.com" 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword" 
     .Update 
End With 
objMail.Configuration = iConfg