ASP 클래식 전자 메일 '80040213'전송이 서버에 연결하지 못했습니다.

Question

많은 질문이 있지만 거기에는 아무 답변도없는 것 같습니다.

내 응용 프로그램은 실행중인 서버가 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 인증을 요구할 수도 있습니다.

다른 모든 것이 실패하면 제 3 자 제공 업체를 사용해 볼 수 있습니다. 우리는 £ 4.35 패키지에 SendInBlue를 사용합니다. 시스템을 통해 최대 4 만 개의 이메일을 보낼 수 있습니다. 우리는 제 3 자에게 메일을 보내는 것이 메일 전송 기능을 중지시키는 서버 설정에 대한 문제를 완전히 제거한다는 것을 알았습니다. 우리는 이제이 기능을 Classic 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