textbox text an email adresse senden

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von user2100.

    textbox text an email adresse senden

    hi,

    ich möchte gern einen text aus einer textbox an meine email adresse senden lasen. habe ich einiges versucht, jedoch ohne erfolg.

    hier meine versuche den text an meine email senden zu lassen. achja ich bekomme lediglich eine fehlermeldung mit timeout.

    Versuch 1:

    VB.NET-Quellcode

    1. Sub test_sent()
    2. Dim email As New MailMessage
    3. Dim mysmtp As New SmtpClient
    4. mysmtp.Host = "smtp.strato.de"
    5. mysmtp.Port = 465
    6. mysmtp.EnableSsl = True
    8. Dim mycre As New System.Net.NetworkCredential
    9. mycre.UserName = "test@domain.de"
    10. mycre.Password = aktivierung.txt_epw.Text
    11. mysmtp.UseDefaultCredentials = False
    12. mysmtp.Credentials = mycre
    14. With email
    15. .From = New MailAddress(txt_email.Text)
    16. .To.Add(aktivierung.txt_en.Text)
    17. .Subject = "Neue Nachricht"
    18. .Body = Text
    19. .BodyEncoding = System.Text.Encoding.Default
    20. .Body = "Email: " + txt_email.Text + vbNewLine + "Name: " + txt_vorname.Text + " " + txt_nachname.Text
    21. .Priority = MailPriority.High
    22. End With
    23. Try
    24. mysmtp.Send(email)
    25. MsgBox("email wurde versand.", MsgBoxStyle.Information)
    26. Catch ex As Exception
    27. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
    28. End Try
    29. End Sub


    hat leider nur zu einem Timeout gebracht.

    Versuch 2:

    VB.NET-Quellcode

    1. Sub sent()
    2. Dim wcl As New Net.WebClient
    3. Dim text As String
    4. If txt_email.Text = Nothing Or txt_nachname.Text = Nothing Or txt_vorname.Text = Nothing Then
    5. MsgBox("Bitte füllen Sie alle Felder korrekt aus.", MsgBoxStyle.Critical, "Ungültige Eingabe")
    6. Else
    7. Try
    8. text = "Email: " + txt_email.Text + vbNewLine + "Vorname: " + txt_vorname.Text + vbNewLine + "Nachname: " + txt_nachname.Text
    10. Dim myClient As New Net.Mail.SmtpClient("smtp.strato.de")
    11. myClient.Credentials = New Net.NetworkCredential(form2.txt_en.Text, form2.txt_epw.Text)
    12. myClient.Send(form2.txt_en.Text, form2.txt_en.Text,form2.txt_en.Text, "test ", text)
    13. Catch ex As Exception
    14. MsgBox(ex.ToString)
    15. 'MsgBox("Versuchen Sie es erneut" + vbCrLf & "Bitte Versuchen sie es erneut", MsgBoxStyle.Critical)
    16. End Try
    17. MsgBox("test.", MsgBoxStyle.Information, "info")
    18. End If
    19. End Sub


    auch das hat nicht funktioniert.

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Der obere Code sieht gut aus.
    Ich bin weiß Gott nicht der Maßstab - aber das sieht ähnlich aus wie bei mir. Also sollte passen.
    Aber ich habe das hier gefunden vlt. hilft es:
    strato.de/faq/mail/so-lauten-die-strato-e-mail-server
    ​Sofern Sie Schwierigkeiten mit dem Port 465 haben, bietet STRATO den alternativen Port 587 (nach RFC 2476) an, um eventuelle Fehler zu umgehen. Das bedeutet, dass Sie in Ihrem E-Mail Programm die Port Einstellung für SMTP von 465 auf 587 ändern müssen, um weiterhin Ihre E-Mails senden zu können. Einige Internet Zugangsprovider führen Überprüfungen auf dem Standardport durch, die durchaus Unregelmäßigkeiten verursachen können.Weitere Konfigurationseinstellungen erfragen Sie bitte bei Ihrem Netzanbieter oder Handy-Hersteller.

Facebook
Telefonspende