SMTP Sender : envoyer un email a plusieurs personnes a la fois

Version imprimable

06/02/2010, 05h15
Dr.Maudit

SMTP Sender : envoyer un email a plusieurs personnes a la fois
Bonjour.
Je viens d'ouvrir un petit site pour les amies.
J'ai programmé un SMTP Sender en VB.Net, et ca marche bien.
Mon seul souci c'est que je peux envoyer un email a une seule personne a la fois.
Voila comment j'ai procédé:
Code:

1 2 MyMailMessage.Add.To (TextBox5.Text) TextBox5.Text = " "
Et si je tape deux emails a la fois ca ne marche pas. Mais avec un seul ca marche.
Je voudrais pouvoir envoyer un email a plusieurs personnes a la fois.
Auriez vous des pistes à me proposer qui me permettraient de réaliser cela ?
Merci :roll:

Tu peux utiliser la fonctionnalité Split.

Code:

1
2
3
4
5
6
7
 Info = 'Ton textBox
                adresse = Info.Split("ton séparateur entre les adresses")
 
                For i = 0 To UBound(adresse)
                    objAdrRec = New System.Net.Mail.MailAddress(adresse(i))
                    objMessage.To.Add(objAdrRec)
                Next i

Citation:

Envoyé par Carmel_O

Tu peux utiliser la fonctionnalité Split.

Code:

1
2
3
4
5
6
7
 Info = 'Ton textBox
                adresse = Info.Split("ton séparateur entre les adresses")
 
                For i = 0 To UBound(adresse)
                    objAdrRec = New System.Net.Mail.MailAddress(adresse(i))
                    objMessage.To.Add(objAdrRec)
                Next i

merci Frère :D

Vous pouvez m'aider dans la façon de l'insersion du code, s'il vous plait ?
Voici mon Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Imports System.Net.Mail
 
 
Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress(TextBox3.Text)
            ProgressBar1.Value = 0
            MyMailMessage.To.Add(TextBox5.Text)
            TextBox5.Text = ""
            ProgressBar1.Value = 15
            MyMailMessage.Subject = TextBox6.Text
            MyMailMessage.Body = TextBox7.Text
            TextBox7.Text = ""
            ProgressBar1.Value = 30
            Dim SMTP As New SmtpClient(TextBox1.Text)
            TextBox1.Text = ""
            ProgressBar1.Value = 50
            SMTP.Port = (TextBox2.Text)
            TextBox2.Text = ""
            ProgressBar1.Value = 80
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox3.Text, TextBox4.Text) '"From E-Mail Adress username and password"
            TextBox3.Text = ""
            TextBox4.Text = ""
            ProgressBar1.Value = 90
            TextBox6.Text = ""
            SMTP.Send(MyMailMessage)
            TextBox2.Text = ""
            ProgressBar1.Value = 100
            MsgBox("Message Envoyé!")
        Catch ex As Exception
        End Try
    End Sub

Merci encore