Problem solved!
Hallo zusammen,
ich habe folgende Frage:
Ich versuche eine Mail an mehrer Empfänger gleichzeitig zu senden, aus diversen Foren habe ich erfahren, man kann die Empänger mit einem Komma trennen. Also habe ich einen String dafür erstellt der wie folgt generiert wird:
Beim senden arbeite ich, wie unten zu erkennen mit einem Substring um das Komma hinter der letzten Adresse zu entfernen.
Die Mail wird leider nicht gesendet aber der Code wirft auch keinen Fehler. Das Programm hängt sich nicht auf oder Stürzt ab, es legt nur, was der nächste Schritt normalerweise ist, diese Mail in der Datenbank an.
Vielen Dank schonmal.
Lösung: Danke an dieser Stelle an petaod, der mir dabei geholfen hat mein Problem zu lösen!
Lösung:
Thema kann geschlossen werden.
Hallo zusammen,
ich habe folgende Frage:
Ich versuche eine Mail an mehrer Empfänger gleichzeitig zu senden, aus diversen Foren habe ich erfahren, man kann die Empänger mit einem Komma trennen. Also habe ich einen String dafür erstellt der wie folgt generiert wird:
Beim senden arbeite ich, wie unten zu erkennen mit einem Substring um das Komma hinter der letzten Adresse zu entfernen.
Die Mail wird leider nicht gesendet aber der Code wirft auch keinen Fehler. Das Programm hängt sich nicht auf oder Stürzt ab, es legt nur, was der nächste Schritt normalerweise ist, diese Mail in der Datenbank an.
Vielen Dank schonmal.
Quellcode
- Try
- [color=#FF0000]Dim Msg As New MailMessage
- Dim mycreds As New System.Net.NetworkCredential
- mycreds.UserName = "alarmierung.prowl@gmail.com"
- mycreds.Password = TextBox1.Text
- Msg.IsBodyHtml = False
- Dim mySmptsrv As New SmtpClient()
- mySmptsrv.EnableSsl = True
- mySmptsrv.Host = "smtp.gmail.com"
- mySmptsrv.Port = 587
- mySmptsrv.UseDefaultCredentials = False
- mySmptsrv.Credentials = mycreds
- Msg.From = New MailAddress("alarmierung.prowl@gmail.com")
- Msg.To.Add(Alarmeinheiten.Substring(0, Alarmeinheiten.Length - 1)) 'hier liegt das Problem
- Msg.Subject = "Neue Alarmierung Sanitätsdienst"
- Msg.Body = "*" & TbEinsatznummer.Text & " " & TbStichwort.Text & " " & DatUhrzeit.Text & " #" & TbEinsatzort.Text & "#"
- mySmptsrv.Send(Msg)[/color]
Lösung: Danke an dieser Stelle an petaod, der mir dabei geholfen hat mein Problem zu lösen!
Lösung:
Thema kann geschlossen werden.
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Moritz Jökel“ ()