Bonjour
j'utilise Vb 2010 pour envoyer un mail à plusieurs personnes via le code ci-dessous.
la ListBox1.Items(i) contient la liste des emails
Ma question: je souhaite que les contacts ne se vois pas enter eux.
Merci
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 Dim myOl As Outlook.Application Dim myEmail As Outlook.MailItem myOl = New Outlook.Application myEmail = myOl.CreateItem(OlItemType.olMailItem) For i As Integer = 0 To ListBox1.Items.Count - 1 myEmail.Recipients.Add(ListBox1.Items(i)) myEmail.Subject = TextBox1.Text myEmail.Body = TextBox2.Text If TextBox3.Text = "" Then Else myEmail.Attachments.Add(TextBox3.Text) End If Next myEmail.Send()
Partager