Email HTML an mehrere Emfpänger

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von thommy1972de.

    Email HTML an mehrere Emfpänger

    Hallo.
    Ich bin gerade an einem einfachen Newsletter Skript.
    Dieses soll nach Eingabe einer Betreff und Inhalt-Textbox an mehrere MySQL Empfänger versenden.
    Mit einem Empfänger geht das soweit aber sobald 2 Empfänger vorhanden sind kommt Fehler.
    Bisheriger Code:

    VB.NET-Quellcode

    1. Try
    3. Msg.From = New MailAddress("Mein Name usw... <xxxx@xxxx.de>") ' Meine Email wird angegeben !
    4. Dim con As New MySqlConnection(My.Settings.connection)
    5. Dim cmd As New MySqlCommand("SELECT * FROM kunden WHERE gesperrt = '0' AND newsletter = '1'")
    6. Dim reader As MySqlDataReader
    7. cmd.Connection = con
    8. con.Open()
    9. reader = cmd.ExecuteReader()
    10. ' Schleife
    11. Do While reader.Read()
    12. ' Emails hinzufügen
    13. Msg.To.Add(reader("email") & ", ")
    15. Loop
    16. reader.Close()
    17. con.Close()
    19. ' Text Zeilenumbrüche in <BR> umwandeln
    20. Dim textneu As String = nl_inhalt.Text.Replace(vbLf, "<br>")
    21. ' Betreffzeile aus Textbox
    22. Msg.Subject = nl_betreff.Text
    24. ' Umgewandelte Message aus Textbox 2
    25. Msg.Body = textneu
    27. ' Und ab gehts
    28. mySmtpsrv.Send(Msg)
    31. MessageBox.Show("E-Mail erfolgreich gesendet.")
    33. Catch ex As Exception
    34. MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString) 'Wenn ein Fehler auftritt wird dieser angezeigt
    36. End Try


    Es liegt wohl offenbar am Einfügen mehrerer Email Adressen wo offenbar das format nicht stimmt ?
    Fehlermeldung:
    Die angegebene Zeichenfolge besitzt nicht das für eine E-Mail Addresse erforderliche Format

    *Topic verschoben, VB-Tag eingefügt*

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

    Ja ich habe mit messagebox.show(reader("email")) versucht und da gibt er mir die korrekte Email Adressen auch nacheinander aus.
    Ich denke es hängt an den Anführungszeichen da wohl die Email als "em@ail.de" angeben werden müssen und im reader ja nur em@ail.de ohne Anführungszeichen rauskommt.
    Ebenso bringt xxx.to.add("" & reader("email") & "") nichts da sich die AZ wohl irgendwie gegenseitig wieder aufheben/blockieren / was weiss ich ^^

    Ich würd' mal versuchen:

    VB.NET-Quellcode

    1. Do While reader.Read()
    2. ' Emails hinzufügen
    3. Dim eMailAdress as string= Reader("email")
    4. Msg.To.Add(eMailAdress)
    5. Loop

    Dann auf Zeile #4 einen Breakpoint und schaune, was denn der Inhalt von eMailAdress ist.

    Also ich sag`s jetzt wirklich nur ungern aber ich habe vor ein paar Wochen mein Passwort geändert und jetzt natürlich das alte genommen :(
    Mit dem neuen Pass geht`s natürlich - Also lag der Fehler wohl an meinem Alter ^^

    Falls den Code jemand gebrauchen kann:

    Quellcode

    1. ​
    2. Dim Msg As New MailMessage
    3. Dim myCredentials As New System.Net.NetworkCredential
    4. Dim con As New MySqlConnection(My.Settings.connection)
    5. Dim cmd As New MySqlCommand("SELECT * FROM kunden WHERE email != '' AND gesperrt = '0' AND newsletter = '1'")
    6. Dim myData As MySqlDataReader
    7. myCredentials.UserName = "DEIN BENUTZERNAME"
    8. myCredentials.Password = "DEIN PASSWORT"
    9. Msg.IsBodyHtml = True ' HTML ansonsten FALSE für Text-Email
    10. Dim mySmtpsvr As New SmtpClient()
    11. mySmtpsvr.Host = "SMTP SERVER ADRESSE"
    12. mySmtpsvr.Port = 25
    13. mySmtpsvr.UseDefaultCredentials = False
    14. mySmtpsvr.Credentials = myCredentials
    15. Msg.From = New MailAddress("ABSENDER EMAIL ADRESSE")
    16. Msg.Subject = "Betreff: " & nl_betreff.Text
    17. cmd.Connection = con
    18. con.Open()
    19. mydata = cmd.ExecuteReader()
    20. While myData.Read()
    21. Msg.Body = "DEIN INHALT DER EMAIL"
    22. Msg.To.Add(myData("email"))
    23. End While
    24. con.Close()
    26. mySmtpsvr.Send(Msg)
    27. MessageBox.Show("Emails wurden verschickt !")

Facebook
Telefonspende