Salut,
Je suis stagiaire dans une boîte d'informatique où je dois créer un programme de e-syndic. Avec ce programme, le syndic devra pouvoir envoyer des mails à ses copropriétaires. Le hic c'est que je n'ai pas trouvé le code avec vb .net 2008 pour le faire. J'ai essayé plein de code du forum et ceux de vbfrance mais rien ne marche.Là on s'y est mis même à deux mais rien ne marche. Le code qui me parait le plus correct est le suivant :
Dim mail As New MailMessage()
'set the addresses
mail.From = New MailAddress("mrassaa87@gmail.com")
mail.To.Add("joedassin87@gmail.com")
'set the content
mail.Subject = "sujet de mail"
mail.Body = "le body du mail."
'si tu veux attacher des piéces jointes a ton mail
'mail.Attachments.Add(New System.Net.Mail.Attachment("c:\bd1.mdb"))
'send the message
'Dim client As New SmtpClient("adresse_de_serveur", "port")
' par exemple dans mon cas j'utilise le serveur smpt google avec mon compte gmail
Dim client As New SmtpClient("smtp.gmail.com", 587)
client.EnableSsl = True
client.Credentials = New NetworkCredential("*****@gmail.com", "*****")
Try
client.Send(mail)
MsgBox("coucou ca va")
Catch ex As Exception
Dim ex2 As Exception = ex
Dim errorMessage As String = String.Empty
MsgBox("oy oy ca ne va pas")
While Not (ex2 Is Nothing)
errorMessage += ex2.ToString()
ex2 = ex2.InnerException
End While
Console.WriteLine(errorMessage)
End Try
mais il ne marche pas non plus. Il se bloque dans le Try où il y a le client.Send en dessous et il va directement au catch. On me met "Echec d'envoi" (lorque j'enléve le try et catch pour voir la nature de l'erreur) et il me disent que la connexion io est fermée (io=in/out).
J'ai vraiment besoin de votre aide car mon encadrant n'est pas là cette semaine.
Merci d'avance
P.S: je vous rassure,mon adresse email que j'ai mis n'est pas ***** ni le code d'ailleurs.
Finalement j'ai fignoler avec Mayzz un code qui finalement a marché (pour ceux qui voudront le consulter, il faudra savoir que je suis en Tunisie et que le fournisseur internet de la boîte est Globalnet. Donc il vous suffira de changer le smtp. Exemple : pour gmail vous mettez smtp.gmail.com)
Voici le code :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mail As New MailMessage()
'set the addresses
mail.From = New MailAddress("contact@prodit.net")
mail.To.Add("joedassin87@gmail.com")
'set the content
mail.Subject = "sujet de mail"
mail.Body = "le body du mail."
Dim client As New SmtpClient("xsmtp.gnet.tn")
Try
client.Send(mail)
MsgBox("coucou ca va")
Catch ex As Exception
MsgBox("Echec de l'envoi")
End Try
End Sub
Dim client As New SmtpClient("xsmtp.gnet.tn") client.EnableSsl = True client.Credentials = New NetworkCredential("anis8ahmadi@gmail.com", "************")
Try client.Send(mail) MsgBox("coucou ca va") Catch ex As Exception
Et enfin j'ai trouvé le cœur du problème et la solution....
Le problème n'est pas le code, c'est gmail qui bloque la connexion car pour lui votre application ne respecte pas les normes de sécurité les plus récentes.
et voila la solution:
https://support.google.com/accounts/answer/6010255?hl=fr option 2
Je suis je suis en Tunisie et mon fournisseur internet de la boîte est Globalnet aussi mais j'ai pas pu résolu le problème.
voila mon code:
- Messages postés
-
16
- Date d'inscription
- mardi 26 mai 2015
- Statut
- Membre
- Dernière intervention
- 23 décembre 2015
> doc.vendettaLe problème n'est pas le code, c'est gmail qui bloque la connexion car pour lui votre application ne respecte pas les normes de sécurité les plus récentes.
et voila la solution:
https://support.google.com/accounts/answer/6010255?hl=fr
option 2