Discussion :

[Corentin_G]

Bonjour,

J'ai fais un programme d'envoi de mail qui marche très bien mais seulement quand je l'envoi a un seul destinataire. Cependant j'ai déjà une autre form avec une sorte de gestion client et je voudrais récupérer les données toute ma colonne E-Mail afin de les importer dans mon champs destinataire avec un bouton.
Avant de faire compliquer j'avais essayer de faire simple et de simplement rentrer deux destinataires dans ma textbox destinataires cependant seulement le deuxième recevais le mail...

Je me pose donc la question si il est possible d'envoyer un mail a plusieurs destinataires avec ce 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Imports System.Net.Mail
Imports System.Web
Imports System.IO
Public Class Form2
    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GroupBox1.Enabled = False
        GroupBox2.Enabled = True
        Button1.Enabled = True
        Button2.Enabled = True
 
    End Sub
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GroupBox2.Enabled = False
        Button2.Enabled = False
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Mail As New MailMessage
        Mail.Subject = TextBox4.Text
        Mail.To.Add(TextBox3.Text)
        Mail.From = New MailAddress(TextBox1.Text, "Nuage du bien être")
        Mail.Body = TextBox5.Text
 
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        SMTP.Port = "587"
 
        If TextBox6.Text <> "" Then
            Dim data = New Net.Mail.Attachment(TextBox6.Text)
            Mail.Attachments.Add(data)
        End If
 
        SMTP.Send(Mail)
            MsgBox("Mail envoyer !", MsgBoxStyle.Information, "Nuage_du_bien_être")
        Close()
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        OpenFileDialog1.Title = "Choisissez un fichier"
        OpenFileDialog1.InitialDirectory = "C:\Users"
        OpenFileDialog1.ShowDialog()
        TextBox6.Text = OpenFileDialog1.FileName
 
    End Sub
 
End Class

Je vous remercie par avance de votre aide.

[jopopmk]

Salut,

as-tu essayé de fire un Mail.To.Add() pour chacune des adresses de destination ?

[Corentin_G]

salut,

Merci de ta réponse.
Non je n'est pas essayer je vais le faire la et te retient au courant mais le problème est que si cela marche je ne vois pas comment je pourrais faire pour une liste de 50 personnes voir plus car cette textbox est relié a toute les adresse mail du fichier client

[Corentin_G]

Salut,

Du coup un mail.to.add a chaque destinataire marche

[jopopmk]

Tes adresses mail ne sont pas collées les unes aux autres, tu utilises un séparateur (une espace ou un point-virgule, ou un saut de ligne pour une TextBox multiline). Lorsque tu prépares ton objet pour l'envoi du mail il suffit alors de faire un Split (MSDN) sur ce séparateur pour obtenir un tableau de string contenant chacune des tes adresses. Restera alors à boucler sur ce tableau pour faire des Mail.To.Add().

[Corentin_G]

Oui j'avais mis un point virgule.
D'accord je vais essayer de me pencher la dessus car j'ai jamais utiliser cette methode

[Corentin_G]

Bonjour,

Je n'arrive pas très bien a voir comment faire, pourriez vous m’éclairer un peu plus ?

cordialement

[jopopmk]

Re,

ce n'est pas bien compliqué. Imaginons que la liste des destinaires, séparés par des points-virgules, se trouve dans TextBox3.Text :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' on commence par découper en plusieurs string autour du ';'
Dim adrs As String() = TextBox3.Text.Split(";"c)
' on parcours toutes les chaines trouvées '
For Each adr As String In adrs
	' on pense à enlever les espaces de trop autour de l'adresse
	adr = adr.Trim()
	' on vérifie qu'on tombe pas sur une chaine vide (peut arriver si l'utilisateur saisit un point-virgule à la fin de TextBox3
	If adr <> "" Then
		' on l'ajoute à la liste des destinataires
		Mail.To.Add(adr)
	End If
Next

[Corentin_G]

Bonjour,

Excuser moi du retard, avec les bacs blanc je n'ai pas pu me pencher dessus

Je vous remercie de votre aide, cela a marcher pour deux personnes, il me reste plus qu'a importer les e-mails des clients dans la textbox3 du windows form mail

Cordialement