Sneding SMTP Mail с Office365 из SQL2000 DTS

Question

Мы перенесли с общего хоста электронной почты Exchange на Office 365. У нас есть старые скрипты SQL2000 DTS Active X (vbscript), которые отправляют почту, которая теперь перестала работать. Мы отправляем с помощью CDO и подключаемся к SMTP. Я не считаю, что что-либо на сервере или в нашей сети изменилось, но не на 100%. Ниже приведен vbscript. Мы получаем сообщение об ошибке «Транспорт не удалось подключиться к серверу» в строке .Send. Есть какие нибудь идеи как это починить?

'********************************************************************** 

'Visual Basic ActiveX Script ' ************************************ ************************************

Function Main() 
    '# Get a preconfigured "CDO.Message" object 
    Set oMail = GetCdoMessageObject() 

    '# Send email 
    With oMail 
     .From = "mailsend@ourdomain.com" 
     .To = "me@ourdomain.com" 
     .Subject = "test to cfoster@ourdomain.coml" 
     .TextBody = "This message was sent from a DTS package." 
     .HtmlBody = "<div><p>This <i>message</i> was sent from a <b>DTS</b> package.</p></div>" 
     .Send 
    End With 

    '# Clean Up 
    Set oMail = Nothing 

    '# Return 
    Main = DTSTaskExecResult_Success 
End Function 

Function GetCdoMessageObject() 
    Dim CdoMessage 
    Set CdoMessage = CreateObject("CDO.Message") 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'CdoSendUsingPort 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.office365.com" 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="mailsend@ourdomain.com" 
    CdoMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="passwordhere" 
    CdoMessage.Configuration.Fields.Update 

    Set GetCdoMessageObject = CdoMessage 
End Function 

Answer 1

Я обнаружил, что если бы я указал SSL true, тогда мне пришлось прокомментировать строку, указывающую порт 587.