proak
Messages postés2Date d'inscriptionsamedi 4 juin 2011StatutMembreDernière intervention 5 juin 2011
-
4 juin 2011 à 10:56
protectart
Messages postés1Date d'inscriptionvendredi 24 mars 2006StatutMembreDernière intervention10 décembre 2011
-
10 déc. 2011 à 15:28
Salut tout le monde,
Voila je suis en train de créer un logiciel (Email Sender) qui permet d'envoyer le même message à plusieurs personne comme ceci :
Est donc j'ai un petit problème avec mon code d'envoie j'aimerais qu'il envoie à toutes les adresse qu'il y'a dans la listbox chaque ligne = un email, voici mon codes :
Dim MyMailMessage As New MailMessage() 'Creatation de l'émail
Dim SMTPServer As New SmtpClient("smtp.gmail.com") 'SMTP
'Email
For counter = 0 To ListBox1.Items.Count - 1
Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))
MyMailMessage.Attachments.Add(Attach)
Next
MyMailMessage.From = New MailAddress(ListBox2.Items(destiner)) 'Destinataire
MyMailMessage.To.Add(TextBox1.Text) 'Expéditeur
MyMailMessage.Subject = (TextBox3.Text) 'Sujet
MyMailMessage.Body = (TextBox5.Text) 'Corps
'SMTP
SMTPServer.Port = ("587") 'Port
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text) 'Login + Pass
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage) 'Envoi de l'émail
MsgBox("Send !", MsgBoxStyle.Information)
Catch ex As SmtpException
MsgBox("ERROR !", MsgBoxStyle.Critical)
End Try
Voila mais j'aimerais que en destinataire ça envoie le même mail à toutes les adresse qu'il y'a dans la listbox ? quelle code dois je mettre dans :
MyMailMessage.From = New MailAddress(ici je doit mettre quoi ?) 'Destinataire
pour que ça envoie le mail à toutes les adresse de la listbox ?????
Si j'ai mal expliquer dites le moi =)
MERCI
protectart
Messages postés1Date d'inscriptionvendredi 24 mars 2006StatutMembreDernière intervention10 décembre 2011 10 déc. 2011 à 15:28
mail = New MailMessage()
Dim addr() As String = TextBox1.Text.Split(",")
Try
mail.From = New MailAddress("xyz@gmail.com", "Web Developers", System.Text.Encoding.UTF8)
Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next