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.
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.
Please also mark the comments that contributed to the solution of the article
Content-Key: 562889
Url: https://administrator.de/contentid/562889
Printed on: April 25, 2024 at 12:04 o'clock
3 Comments
Latest comment
och menno.... do deppisch kann man doch garnicht sein. Einmal Google anwerfen und:
554 heißt daß deine IP geblacklistet wurde.
www.dogado.de/faq/artikel/die-haeufigsten-e-mail-fehlercodes/
Ruf deinen Provider an und klär das mit dem.
Du versuchst bei deinen Provider einen Server als SMTP Relay zu benutzen und der will das vermutlich nicht mehr, die nächste Tretmine wäre ein Username und Paßwort im Klartext zu übertragen, das ist hoffentlich base64 codiert... und falls es TLS ist, CDO ist 20 JAhre alt, und dürfte nur TLS 1.0 kennen, und wird auch nie im Leben mehr können. Das CDO kam mit MS Office 6.5... TLS 1.0 kannste auch sein lassen, sowas knackt der Profi in einer Stunde mit einer OpenCL / CUDA fähigen Grafikkarte.
554 heißt daß deine IP geblacklistet wurde.
www.dogado.de/faq/artikel/die-haeufigsten-e-mail-fehlercodes/
Ruf deinen Provider an und klär das mit dem.
Du versuchst bei deinen Provider einen Server als SMTP Relay zu benutzen und der will das vermutlich nicht mehr, die nächste Tretmine wäre ein Username und Paßwort im Klartext zu übertragen, das ist hoffentlich base64 codiert... und falls es TLS ist, CDO ist 20 JAhre alt, und dürfte nur TLS 1.0 kennen, und wird auch nie im Leben mehr können. Das CDO kam mit MS Office 6.5... TLS 1.0 kannste auch sein lassen, sowas knackt der Profi in einer Stunde mit einer OpenCL / CUDA fähigen Grafikkarte.