[VB.NET] Problème d'envoi d'un mailRésolu/Fermé

Question

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.

MohaBaba · Answer

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

[VB.NET] Problème d'envoi d'un mail

1 réponse

Newsletters