Wie kann man eine E-Mail an mehrere E-Mail Addressen aus einer Listbox senden?
Was mache ich falsch?
VB.NET-Quellcode
- Dim emsg As New MailMessage
- Try
- For i As Integer = 0 To ListBox1.Items.Count - 1
- emsg.From = New MailAddress(TextBox1.Text)
- emsg.Subject = TextBox3.Text
- emsg.Body = RichTextBox1.Text
- emsg.To.Add(i)
- Dim smtp As New SmtpClient(ComboBox1.Text)
- smtp.Port = 587
- smtp.EnableSsl = True
- smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
- smtp.Send(emsg)
- Next
- Catch ex As Exception
- MsgBox("Fehler!")
- End Try
Was mache ich falsch?