gMail mit CDO will nicht mehr
08.06.2022 15:01:25
Dennis
bis gestern lief mein "Rechnungsprogramm" ohne Probleme.
Seit heute möchte gMail keine Nachrichten mehr verschicken.
Hat jemand eine Ahnung was da los ist? Plötzlich gibt es immer nur einen Laufzeitfehler mit einer sehr langen Minuszahl und der SMTP-Server sei nicht erreichbar...
Bis gestern ging es noch und der Code wurde nicht verändert...
Vielleicht hat ja noch jemand das gleiche Problem und kann mir helfen.
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
Const cdoNTLM = 2 'NTLM
' Mailserver Konfiguration
Const strUsername = "XXX"
Const strPassword = "XXX"
Const strSMTPServer = "smtp.gmail.com"
' SSL benutzen JA/EIN (ACHTUNG CDO unterstützt nur TLS auf Port 25)
Const boolUseSSL = True
'Nachrichtendetails festlegen
strFrom = "getraenke.engel.duisburg@gmail.com"
strTo = tb_ku_mail.Value
strSubject = "Ihre neue Rechnung"
strTextbody = "Sehr geehrte Damen und Herren"
strHTMLBody = "Sehr geehrte Damen und Herren"
att = CStr(pdfpfad) & "Rechnung" & "-" & Format(datum, "YYYY") & "-" & Format(tb_bestellnummer, "00000") & "-" & tb_ku_nummer & "-" & tb_ku_firma & ".pdf"
'MsgBox (CStr(pdfpfad) & "Rechnung" & "-" & Format(datum, "YYYY") & "-" & Format(tb_bestellnummer, "00000") & "-" & tb_ku_nummer & "-" & tb_ku_firma & ".pdf")
Set iMsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = boolUseSSL
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUsername
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
.Update
End With
With iMsg
Set .configuration = objConf
.To = strTo
.from = strFrom
.Subject = strSubject
.TextBody = strTextbody
.HTMLBody = strHTMLBody
.AddAttachment att
End With
' Nachricht verschicken
iMsg.send
Vielen Dank für Eure Hilfe schonmal vorab...
Gruß
Dennis