Discussion :

[Dr.Maudit]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Carmel_O]

Tu peux utiliser la fonctionnalité Split.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dr.Maudit]

Tu peux utiliser la fonctionnalité Split.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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