Echec d'envoi de mail systématique [Résolu]

Signaler
Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Statut
Membre
Dernière intervention
27 juin 2011
-
Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Statut
Membre
Dernière intervention
27 juin 2011
-
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
A voir également:

7 réponses

Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Statut
Membre
Dernière intervention
27 juin 2011
1
Bon bah je sais pas pourquoi mais ça remarche

En tout cas merci à tous pour vos propositions ;)

@+

Ant95
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
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.
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
36
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.
Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Statut
Membre
Dernière intervention
27 juin 2011
1
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
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
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.
Messages postés
319
Date d'inscription
jeudi 1 avril 2010
Statut
Membre
Dernière intervention
16 mars 2011
1
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.
Messages postés
319
Date d'inscription
jeudi 1 avril 2010
Statut
Membre
Dernière intervention
16 mars 2011
1
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.