1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Plusieur destinataire Mail

inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012 - 16 juil. 2008 à 19:05
inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012 - 16 juil. 2008 à 20:15
Bonjour

j'ai un petit problème j'ai un code pour envoyer un mail via un form.
Jusque la pas de problème mais maintenant je voudrais envoyer le mail a plusieurs destinataire

Voici mon code
si qq'un pourrais m'aider ce serais sympa







Try









Dim
MySMTPClient

As



New
SmtpClient(

"hmtp"
)MyMail.From =


New
MailAddress(


[mailto:expediteur@blabla expediteur@blabla]

)MyMail.ReplyTo =


New
MailAddress(

" stinataire1@blabla
)MyMail.To.Add(


New
MailAddress(


[mailto:destinataire1@blabla destinataire1@blabla]

))MyMail.Body = TextBox3.Text

MyMail.Priority = MailPriority.High

MyMail.Subject =


"Cong‚ David"






For



Each
Lines

As



String



In
RichTextBox2.Lines


Next

MySMTPClient.Send(MyMail)


MsgBox(




"E-Mail bien envoy‚ !"
, MsgBoxStyle.Information,

"Envoi de l'E-Mail"
)MyMail.To.Clear()

MyMail.Attachments.Clear()


Catch
ex

As
ExceptionMsgBox(


"Impossible d'envoyer l'E-Mail."
, MsgBoxStyle.Critical,

"Envoi de l'E-Mail"
)MyMail.To.Clear()

MyMail.Attachments.Clear()


End



Try
A voir également:

2 réponses

Réponse 1 / 2
cs_niky Messages postés 168 Date d'inscription jeudi 28 juin 2001 Statut Membre Dernière intervention 18 octobre 2008 7
16 juil. 2008 à 19:26
Au vue du code je dirai :

MyMail.To.Add( New
MailAddress(
[mailto:destinataire1@blabla destinataire1@blabla]))

MyMail.To.Add( New
MailAddress(
[mailto:destinataire1@blabla destinataire2@blabla]))

etc.
0
Réponse 2 / 2
inraf Messages postés 104 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 15 novembre 2012
16 juil. 2008 à 20:15
Ok merci ça marche
0
Rejoignez-nous