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