bonjour,

Je cherche a ajouter plusieurs destinataires, j'ai actuellement fait ceci qui marche très bien sur le réseau de mon entreprise :

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
 
Sub sendmail()
        Dim Destination As String = ""
        If ListBox1.SelectedItem = ("Anthony Dupont") Then
            Destination += "anthony.Dupont@windaube.com"
        End If
 
        Dim client As New SmtpClient
        client.Port = 25 'définition du port SMTP
        client.Host = "ablabla.net" 'définition du serveur SMTP 666.666.666.666
 
        Try
            Dim [from] As New MailAddress("application.vb@polux.com", label95.Text)
            Dim [to] As New MailAddress(Destination, ListBox1.SelectedItem)
            Dim message As New MailMessage([from], [to])
Bien sur, comme vous pouvez le voir, l'adresse est en fonction de l'item sélectionné dans la listbox1, en mettant en nom ce qui est sélectionné dedans. En gros j'aimerai que si plusieurs items sont sélectionnés dans la listbox1, cela ne pose pas de soucis et que ce soit envoyé a tout ceux qui sont sélectionnés.

Si quelqu'un peux m’éclairer, j'ai recherché sur le net mais sans succès

Merci !