Envoyer un email en visual basic

Signaler
Messages postés
9
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
22 avril 2010
-
 bizu -
bonjour tt le monde je veux savoir comment je peux envoyer un email à plusieurs destinaires en visual basic et merci d'avance

11 réponses

Messages postés
239
Date d'inscription
lundi 5 décembre 2005
Statut
Membre
Dernière intervention
27 août 2012
5
As-tu changé les adresses mails d'envoi et de destination?
même résultat
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
Mets un point-virgule entre chaque adresse de la propriété To de la classe Mail. Il te suffit d'adapter ceci
---
VB.NET is good ... VB6 is better
bjr, svp est ce que vous pouvez m'écrire le code d'envoie du mail (vb.net)
j'ai testé pas mal de code mais ça marche tjr pa chez moi
merci d'avanc
Messages postés
239
Date d'inscription
lundi 5 décembre 2005
Statut
Membre
Dernière intervention
27 août 2012
5
Bonjour,

Déterrage de post après 2 ans. -> la création d'un nouveau post, c'est toujours mieux.

As-tu cherché à comprendre pourquoi les codes que tu as essayé n'ont pas fonctionné?
merci pour ta répce
j ai commencé avec ce code :

Dim message As New MailMessage("from@gmail.com", "to@gmail.com", "TEST Subject", "TEST Message Text")
Dim emailClient As New SmtpClient("smtp.gmail.com", 25)
'''Dim emailClient As New SmtpClient("smtp.gmail.com", 587)
'''Dim emailClient As New SmtpClient("smtp.gmail.com", 465)
Try
emailClient.Send(message)
MsgBox("ouiii")
Catch ex As Exception
MsgBox("noooon")
End Try

aprè une long lecture ds kelk forum , j croiè ke le blèm est a cause du SSL !!

alors j ai remplacé mon code par ça :

Dim mail As New MailMessage()
mail.From = New MailAddress("from@gmail.com")
mail.To.Add("to@gmail.com")
mail.Subject = "This is an email"
mail.Body = "this is the body content of the email."
Dim smtp As New SmtpClient("smtp.gmail.com", 25)
smtp.Credentials = New NetworkCredential("ensem.weekend@gmail.com", "arsi.123")
smtp.EnableSsl = true
'''smtp.EnableSsl = False
Try
smtp.Send(mail)
MsgBox(" oui ")
Catch ex As Exception
MsgBox(" non ")
End Try

mais ça marche tjr pa
Messages postés
239
Date d'inscription
lundi 5 décembre 2005
Statut
Membre
Dernière intervention
27 août 2012
5
Si ton code renvoie une exception, pourrais-tu nous la donner?
Msg d'erreur : Failure sending mail
nn
c possible ke ça soi a cause de la sécurité du SI de l'entreprise ?!!
mais en réalité j'enovoie souvent des email en entrant sur le site gmail.com
je vai tester le changement les adress , pr savoir keske ça va donner