CDO Nachrichtenversand aus VBA funktioniert nicht mehr

Hallo zusammen,


seit unzähligen Jahren versende ich Statusmails aus meiner Access-DB mit folgendem Code:

Dim objCDOMessage As Object
Dim objCDOConfig As Object
Dim strsch As String

strsch = "http://schemas.microsoft.com/cdo/configuration/"
Set objCDOConfig = CreateObject("CDO.Configuration")
With objCDOConfig.Fields
.Item(strsch & "sendusing") = 2
.Item(strsch & "smtpserver") = "xxx"
.Item(strsch & "smtpauthenticate") = 1
.Item(strsch & "sendusername") = "xxx"
.Item(strsch & "sendpassword") = "xxx"
.Update
End With

Set objCDOMessage = CreateObject("CDO.Message")
With objCDOMessage
Set .Configuration = objCDOConfig
.FROM = "xxx"
.Sender = "xxx"
.To = "xxx"
.subject = "Betreffzeile"
.TextBody = "Text"
.Send
End With
Set objCDOMessage = Nothing
Set objCDOConfig = Nothing

Das hat bis Anfang der Woche noch super geklappt. Seit dem kommt nur noch:

"Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x800ccc6f. Die Serverantwort lautet 554 For explanation visit

Die Vermutung liegt nahe, das mein Provider (ionos) auf SSL bzw. TLS umgestellt hat.
Im Konfigschema steht das auch zur Verfügung. Aber weder

.Item(strsch & "smtpserverport") = 465
.Item(strsch & "smtpusessl") = 1

noch

.Item(strsch & "smtpserverport") = 587
.Item(strsch & "sendtls") = 1

noch irgendeine Kombi funktioniert.
Ich bin bisher soweit gekommen, das im internet geschrieben wird, das es sich um einen bug
in der CDO handelt.

Falls ihr hierzu auch keine Lösung habt, werde ich wohl in den sauren Apfel beißen und alles
über Outlook ansteuern.

Danke.