MailMessage

[rojeroje]

Hallo Gleichgesinnte ^^

hab ein e-mail prog gebastelt, alles soweit super,möchte aber folgendes ändern...

die ziel*Addy* - - -

****hier meine verwendete funktion:

            textdertextbox = TextBox1.Text
            Dim eMail As New MailMessage("xxx-xxx@xxx.de", "yyy_yyy@yyy.de", ) 
            Dim client As New SmtpClient
            Dim anmeldung As New Net.NetworkCredential
            anmeldung.UserName = "xxx-xxx@xxx.de"
            anmeldung.Password = "pwpwpw"
            With eMail
                .Subject = "Account info"
                .IsBodyHtml = False
                .BodyEncoding = System.Text.Encoding.Default
                .Body = "E-Mail: " + textdertextbox
                .Priority = MailPriority.Normal
            End With
            client.Host = "smtp.xxx.de"
            client.Credentials = anmeldung
            client.Send(eMail)

ich möchte noch eine hinzufügen so, das er eine mail an 2 E-Mail addy´s versendet?

kann mir jemand helfen?

also ich könnt natürlich die komplette funktion kopiern ändern und einfügen...
aber es gibt doch bestimmt ne elegantere lösung, so das ich auch nicht viel ändern müsste... oder?

 

[CPoly]

Benutze den Konstruktor von MailMessage, welcher keine Argumente benötigt. Stattdessen setzt du Sender und Empfänger an dieser Stelle.

With eMail
                .To = "aaa@aaa.de;bbb@bbb.de;ccc@ccc.de"
                .From = "xxx@xxx.de"
                .Subject = "Account info"
                .IsBodyHtml = False
                .BodyEncoding = System.Text.Encoding.Default
                .Body = "E-Mail: " + textdertextbox
                .Priority = MailPriority.Normal

Du kannst beim Empfänger mehrere Adressen per Semikolon trennen. Ob das auch direkt im Kontrukstor funktioniert, weiß ich nicht, versuch es einfach.