E-Mail per SMTP versenden

  • VB.NET

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

    E-Mail per SMTP versenden

    Hallöchen,

    da ich keinen neuen Thread dafür aufmachen möchte, wollte ich mal nachfragen ob jemand ein aktuelles VB Script hat, wo man E-Mails versenden kann. Speziell über STRATO. Die hier gelisteten Codes funktionieren alle nicht. Das Programm friert einfach in

    VB.NET-Quellcode

    1. MailSmtpSrv.Send(Mail1)
    ein.

    Der ganze Codeabschnitt lautet:

    VB.NET-Quellcode

    1. Dim Mail1 As New MailMessage
    2. Dim myCredentials As New System.Net.NetworkCredential
    3. myCredentials.UserName = "xxxxx@xxxxxx.xxx"
    4. myCredentials.Password = "xxxxxx"
    6. Mail1.IsBodyHtml = False
    8. Dim MailSmtpSrv As New SmtpClient()
    9. MailSmtpSrv.Host = "smtp.strato.de"
    10. MailSmtpSrv.Port = 465
    11. MailSmtpSrv.EnableSsl = True
    12. MailSmtpSrv.UseDefaultCredentials = False
    13. MailSmtpSrv.Credentials = myCredentials
    15. Try
    16. Mail1.From = New MailAddress("xxxx@xxxxxx")
    17. Mail1.To.Add("xxxx@xxxxxxxxx")
    18. Mail1.Subject = "Test"
    19. Mail1.Body = "Testmail"
    20. MailSmtpSrv.Send(Mail1)
    21. MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
    22. Catch ex As Exception
    23. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
    24. End Try


    Is da irgendwem ne Lösung bekannt, oder ist etwas total falsch im Code ?

    Ich würde diesen code verwenden : (ist aus einem programm von mir )

    VB.NET-Quellcode

    1. mail.Body = tb_body.Text
    2. mail.Subject = tb_subject.Text
    3. mail.From = New MailAddress(tb_Username.Text)
    4. mail.To.Add(tb_email_empfanger.Text)
    5. Dim smtp As New SmtpClient(tb_SMTP.Text)
    6. smtp.Port = tb_port.Text
    7. smtp.EnableSsl = ssljenein.ToString
    8. smtp.Credentials = New System.Net.NetworkCredential(tb_Username.Text, tb_Passwort.Text)
    9. smtp.Send(mail)


    PS: In einem mail programm solltest du lieber nicht die ports/passwörter/text...usw fest einprogrammieren sondern über textboxen lesen lassen
    !! It's not a bug it's a feature !!

Facebook
Telefonspende