Email-Versand: Fehler bei SSPI-Aufruf

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SchorschCode.

    Email-Versand: Fehler bei SSPI-Aufruf

    Hallo zusammen,

    mit folgendem Code möchte ich Emails versenden, was damit auch prima funktioniert:

    VB.NET-Quellcode

    1. Dim MyEmail As New MailMessage
    3. With MyEmail
    4. .From = New MailAddress(strMEINE_EMAILADRESSE)
    5. .To.Add(strEMPFAENGER)
    6. .Subject = "Dies ist der Betreff"
    7. .Body = "Dies ist der Text der Email"
    8. .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
    9. End With
    11. Dim smtp As New SmtpClient("smtp.strato.de")
    12. With smtp
    13. .UseDefaultCredentials = True
    14. .Credentials = New Net.NetworkCredential(strUSER, strPASSWORD)
    15. .EnableSsl = True
    16. .Port = 587
    17. .DeliveryMethod = SmtpDeliveryMethod.Network
    18. .Send(MyEmail)
    19. End With


    Wichtig ist hier der Client: smtp.strato.de
    Mit dem geht es nämlich nicht. Die Fehlermeldung lautet:

    System.Security.Authentication.AuthenticationException: Fehler bei SSPI-Aufruf, siehe interne Ausnahme. --->
    System.ComponentModel.Win32Exception: Die angeforderte Funktion wird nicht unterstützt

    Noch ein paar Infos (weiß nicht, ob das wichtig ist):
    .net Framwork ist 4.6.1, Ziel-CPU ist x64

    Hat jemand eine Idee, was da falsch ist? Wie bereits geschrieben, der Code funktioniert bei vielen anderen Providern, nur nicht bei Strato.

    Bin für jeden Hinweis dankbar!

    Gruß, Schorsch

    Hi, danke für Deine Antwort.

    Der Port 465 geht ebenfalls nicht. Meine Recherche hat auch ergeben, dass dieser Port nicht mehr benutzt wird bzw. benutzt werden sollte:

    Email senden directSLL auf Port 465

    Fehlermeldung bei Port 465:

    Von der Übertragungsverbindung können keine Daten gelesen werden: net_io_connectionclosed

    Das ist also leider nicht die Lösung.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SchorschCode“ ()

    Kannst du mal probieren das hier als allererstes in deinem Programm auszuführen?

    VB.NET-Quellcode

    1. ServicePointManager.Expect100Continue = True
    2. ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
    4. 'Oder:
    5. System.Net.ServicePointManager.ServerCertificateValidationCallback = Function(s, cert, chain, sslPolicyErrors)
    6. Return True
    7. End Function


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    Hallo xored,

    vielen Dank! Das funktioniert bestens!

    Der ganze Code sieht jetzt so aus:

    VB.NET-Quellcode

    1. Dim MyEmail As New MailMessage
    3. With MyEmail
    4. .From = New MailAddress(strMEINE_EMAILADRESSE)
    5. .To.Add(strEMPFAENGER)
    6. .Subject = strSUBJECT
    7. .Body = strBODY
    8. .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
    9. End With
    11. Dim smtp As New SmtpClient("smtp.strato.de")
    13. ServicePointManager.Expect100Continue = True
    14. ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
    16. With smtp
    17. .UseDefaultCredentials = True
    18. .Credentials = New Net.NetworkCredential(strUSER, strPASSWORD)
    19. .EnableSsl = True
    20. .Port = 587
    21. .DeliveryMethod = SmtpDeliveryMethod.Network
    22. .Send(MyEmail)
    23. End With


    ACHTUNG! Entgegen der Angabe von Strato muss hier der Port 587 eingesetzt werden, nicht 465!

Facebook
Telefonspende