echec d'envoi de mail systématiqueRésolu

Question

Bonjour,

Depuis ce soir je n'arrive plus à envoyer de mail via mon application VB.Net. Le message d'erreur retourné est le suivant :

Le serveur SMTP requiert une connexion sécurisée ou le client n'était pas authentifié. La réponse du serveur était : 5.5.1 Authentication Required. Learn more at                   

Le plus étonnant c'est que j'ai vérifié des anciens codes et eux non plus ne marchent pas...
Est ce que cela vient de mon ordinateur ? de ma connexion ? Apparemment non, puisque l'erreur semble être en rapport avec un problème d'authentification. J'ai évidemment essayer de me connecter à messagerie (GMail) mais mon mot de passe est bien resté le même.

Voici mon code, au cas où cela viendrait de là:


Imports System.Net
Imports System.Net.Mail
Public Class Form1
 
    Public Sub SendMail(ByVal pass As String, ByVal user As String)
        Dim smtpServer As New SmtpClient("smtp.gmail.com", 587)
        Dim mail As New MailMessage(user, "destinataire@gmail.com", "Sujet", pass)
        smtpServer.Credentials = New NetworkCredential(user, pass)
        smtpServer.EnableSsl = True
        mail.From = New MailAddress(user)
        Try
            smtpServer.Send(mail)
            MsgBox("ok")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btn_go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_go.Click
        SendMail("password", "expéditeur")
    End Sub
End Class     


Si quelqu'un est dans le même cas que moi et/ou a la solution à mon problème...

Je vous remercie d'avance pour toutes vos réponses. N'hésitez pas à me poser des questions si vous trouvez que je ne suis pas assez explicite.

Ant95

us_30 · Answer

Bonjour,

Il y a plusieurs sources déjà, dont une d'aujourd'hui pour faire cela. Regardes-les !

Sinon, un code possible :


Imports System.Net
Imports System.Net.Mail

Public Class Form1
   
    Public Sub SendMail(ByVal User As String, ByVal Pass As String)
        Dim MyMailMessage As New MailMessage
        Try


            MyMailMessage.From() = New MailAddress(User)
            MyMailMessage.To.Add(User)
            MyMailMessage.Subject = "test"
            MyMailMessage.Body = ("Essai d'envoi pour CS")
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(User, Pass)
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendMail("***", "fordom.free.fr@gmail.com")
    End Sub
End Class

Bien remplacer le pass et l'adresse par les bons...

Amicalement,
Us.

Mayzz · Answer

Salut,

Tente la connexion sur le port 465...

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Ant95 · Answer

Bonjour,

Tout d'abord, merci pour vos réponses à tous les deux.

us_30, mon code est équivalent au tiens mais je vais me tourner du côté des autres sources.
mayzzz, j'ai essayé par le port 465 mais la fenêtre freeze, dommage...

Je continue mes recherches, je vous tiens au courant !

Ant95

us_30 · Answer

Euh... sauf que chez moi, ton code bug... notamment VB2008 n'aime pas du tout : 
Dim mail As New MailMessage(user, "destinataire@gmail.com", "Sujet", pass)

Amicalement,
Us.

cs_aus3004 · Answer

Salut, moi depuis toujours j'utilise ça avec Gmail et ça marche :
            Dim smtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            smtpServer.Credentials = New Net.NetworkCredential("adresse@gmail.com", "mot de passe")
            smtpServer.Port = 587
            smtpServer.Host = "smtp.gmail.com"
            smtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("adresse@gmail.com")
            mail.To.Add("adresse@gmail.com")
            mail.Subject = TextBox1.Text
            mail.Body = TextBox2.Text           
smtpServer.Send(mail)
Et faut pas oublier de catcher les exceptions sinon t'en aura tout le temps :)
Tu peux aussi voir ici pour ce qui concerne le smtp.

cs_aus3004 · Answer

Tu dis :Depuis ce soir je n'arrive plus à envoyer de mail
C'est peut être ton FAI qui fait ça, car je me souviens qu'une fois moi aussi j'avais eu ce message (ou pas ??) mais le lendemain tout marchait perfect.

Ant95 · Answer

Bon bah je sais pas pourquoi mais ça remarche 

En tout cas merci à tous pour vos propositions ;)

@+ 

Ant95

Echec d'envoi de mail systématique

7 réponses

Votre réponse

Discussions similaires