Snezing SMTP-Mail mit Office365 von SQL2000 DTS

Question

Wir haben von einem freigegebenen Exchange-E-Mail-Host zu Office 365 migriert. Wir haben einige alte SQL2000 DTS ActiveX-Skripts (VBScript) Mail senden, die jetzt beendet haben zu arbeiten. Wir senden mit CDO und verbinden mit SMTP. Ich glaube nicht, dass sich irgendetwas auf dem Server oder in unserem Netzwerk geändert hat, aber nicht 100% sicher. Unten ist das VBScript. In der .Send-Zeile wird ein Fehler gemeldet, dass die Verbindung zum Server nicht hergestellt werden konnte. Irgendwelche Ideen, wie das zu beheben ist?

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

'Visual Basic ActiveX-Skript ' ************************************ ************************************

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

ich fand, dass, wenn ich angegeben SSL Wahr, dann musste ich die Zeile, die Port 587 spezifiziert, auskommentieren.