Hello,

( I will write initially in both English and German , because my German is not so good. ( I am English , but live in Germany)

I have a computer program which was used by members of my family for some time, up until about a year ago, and worked reliably and consistently. It sent a shortl Email and a small File automatically. The sending address was one or more of our t-online.de Email accounts.

I would like to use that coding again. In testing over the last few days,  I have found that the coding no longer works with the t-online.de accounts )

The error which  is generated by the error handling which I included  in the program is always the same:

-2147220975:  Die Nachricht konnte nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x800ccc6f. Die Serverantwort lautet 554 5.7.1 Database error. / This is not one of your allowed aliases

Some other info of possible relevance.  …

_ I have tried checking, and resetting the „E-Mail-Passwort“ as in the below screen shots. This is the Password that must be added to the computer program ( The „sendusername“ )

Einstellung Passwoerter.JPG : https://imgur.com/uswYizR

2 Passwoerter.JPG : https://imgur.com/LDbarvU

Passwoeter fuer E Mail Programme aendern.JPG : https://imgur.com/E37FONM

Passwort fuer E Mail Programme vergeben.jpg : https://imgur.com/Qsl8Z1Z

_ The t-online accounts all work normally in manual use when I log in manually with the other „normal“ Password.

_ As Alternative, I have tried in the past a gmail account as the sender. These mostly worked previously, and in testing over the past few days , I find that  they mostly still are.

_ Two of the addresses were hacked some time ago. But that issue has been resolved ( https://telekomhilft.telekom.de/t5/Sonstiges/Fehlermeldung-Ein-Versand-der-Email-ist-nicht-moeglich-da-sie/m-p/3439435#M293120

https://telekomhilft.telekom.de/t5/Sonstiges/Fehlermeldung-Ein-Versand-der-Email-ist-nicht-moeglich-da-sie/m-p/3455022#M293767 )

_ I include a simplified version of my program below. ( I have replaced the real Email addresses and Passwords with made up ones )

Thanks for any help

Alan

_.__________________________________________________________

Hallo,

(Ich schreibe zunächst auf Englisch und Deutsch, weil mein Deutsch nicht so gut ist. (Ich bin Engländer, lebe aber in Deutschland)

Ich besitze ein Computerprogramm, das von Familienmitgliedern bis vor etwa einem Jahr einige Zeit benutzt wurde und zuverlässig und konsistent arbeitete. Es wurde automatisch eine kurze E-Mail und eine kleine Datei gesendet. Die Absenderadresse war einer oder mehrere unserer t-online.de-E-Mail-Accounts.

Ich würde diese Kodierung gerne wieder verwenden. Beim Testen in den letzten Tagen habe ich festgestellt, dass die Codierung mit den t-online.de-Accounts nicht mehr funktioniert.)

Der Fehler, der durch die im Programm enthaltene Fehlerbehandlung erzeugt wird, ist immer der gleiche:

-2147220975: Die Nachricht wurde nicht an den SMTP-Server gesendet werden. Der Transportfehlercode lautet 0x800ccc6f. Die Serverantwort lautet 554 5.7.1 Datenbankfehler. / Dies ist keiner deiner erlaubten Aliase

Einige andere Informationen von möglicher Relevanz. …

_ Ich habe versucht, das „„E-Mail-Passwort““ wie in den folgenden Screenshots zu überprüfen und zurückzusetzen. Dies ist das Passwort, das dem Computerprogramm hinzugefügt werden muss (Der „sendusername“)

Einstellung Passwoerter.JPG: https://imgur.com/uswYizR

2 Passwoerter.JPG: https://imgur.com/LDbarvU

Passwort für E-Mail-Programm aendern.JPG: https://imgur.com/E37FONM

Passwort für E Mail Programm vergeben.jpg: https://imgur.com/Qsl8Z1Z

_ Die t-online Accounts funktionieren alle normal im manuellen Gebrauch, wenn ich mich manuell mit dem anderen „normalen“ Passwort anmelde.

_ Als Alternative habe ich in der Vergangenheit ein Google Mail-Konto als Absender ausprobiert. Diese haben früher meistens funktioniert, und in den letzten Tagen habe ich festgestellt, dass sie es meistens immer noch meistens funktionierend.

_ Zwei der Adressen wurden vor einiger Zeit gehackt. Dieses Problem wurde jedoch behoben ( https://telekomhilft.telekom.de/t5/Sonstiges/Fehlermeldung-Ein-Versand-der-Email-ist-nicht-moeglich-da-sie/m-p/3439435#M293120

 https://telekomhilft.telekom.de/t5/Sonstiges/Fehlermeldung-Ein-Versand-der-Email-ist-nicht-moeglich-da-sie/m-p/3455022#M293767 )

_ Ich füge unten eine vereinfachte Version meines Programms hinzu. (Ich habe die echten E-Mail-Adressen und Passwörter durch erfundene ersetzt.)

Vielen Dank für jede Hilfe

Alan

_.___________________________-

Sub Testing_GermanTelekom_Send_Simplified()

 Call GermanTelekom_Send_Simplified("MrMustermann@t-online.de", "abcde12345")

End Sub

Sub GermanTelekom_Send_Simplified(ByVal UsrNme As String, ByVal PsWd As String) '

   With CreateObject("CDO.Message") '                  ' -------------------*  with LCDCW Library ( Linking Configuration Data Cods Wollups)  which are  used and items configured for the Exchange at Microsoft's protocol therof

    Dim LCD_CW As String: Let LCD_CW = "http://schemas.microsoft.com/cdo/configuration/"

     .Configuration(LCD_CW & "smtpusessl") = True '

     .Configuration(LCD_CW & "smtpauthenticate") = 1

    '  ' Sever info

     .Configuration(LCD_CW & "smtpserver") = "securesmtp.t-online.de" '

    '  The mechanism to use to send messages.

     .Configuration(LCD_CW & "sendusing") = 2

     .Configuration(LCD_CW & "smtpserverport") = 25 ' or 465

     .Configuration(LCD_CW & "sendusername") = UsrNme   '

     .Configuration(LCD_CW & "sendpassword") = PsWd

    ' Optional - How long to try                      ( End remote SMTP server configuration section )

     .Configuration(LCD_CW & "smtpconnectiontimeout") = 30 '

    ' Intraction protocol is Set/ Updated

     .Configuration.Fields.Update '

    'End With                                          ' -------------------* End with LCDCW Library ( Linking Configuration Data Cods Wollups)  which are  used and items configured for the Exchange at Microsoft's protocol therof

    ' Data to be sent

    .To = "MaxMustermann@t-online.de"

    .cc = "MaxHeadroom@gmail.com"

    .BCC = ""

    .from = """gMail_Send_Simplified"" <""" & UsrNme & """>"

    .Subject = "Hello from  " & UsrNme & "   using  gMail_Send_Simplified"     '

    .TextBody = "Hi" & vbNewLine & vbNewLine & "Testing. Please ignoor this EMail"

    ' Do it

     On Error GoTo Bed                                                                             ' Intended to catch a possible predicted error in the next line when running the routine

      .send

     On Error GoTo 0

    Debug.Print "Done " & Format(Now(), "hh mm") & "    with Username:  " & UsrNme & vbCr & vbLf

    End With '                                                       End With  CreateObject("CDO.Message") (Rem 1 Library End =======#

Exit Sub

Bed:

 Debug.Print "Fail " & Format(Now(), "hh mm") & "    with Username:  " & UsrNme & vbCr & vbLf & "  " & Err.Number & ":  " & Err.Description & vbCr & vbLf

End Sub