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

Ant95 26 Messages postés vendredi 30 octobre 2009Date d'inscription 27 juin 2011 Dernière intervention - 22 juin 2010 à 23:11 - Dernière réponse : Ant95 26 Messages postés vendredi 30 octobre 2009Date d'inscription 27 juin 2011 Dernière intervention
- 29 juin 2010 à 18:23
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
Afficher la suite 

7 réponses

Répondre au sujet
Ant95 26 Messages postés vendredi 30 octobre 2009Date d'inscription 27 juin 2011 Dernière intervention - 29 juin 2010 à 18:23
+1
Utile
Bon bah je sais pas pourquoi mais ça remarche

En tout cas merci à tous pour vos propositions ;)

@+

Ant95
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Ant95
us_30 2117 Messages postés lundi 11 avril 2005Date d'inscription 14 mars 2016 Dernière intervention - 23 juin 2010 à 12:54
0
Utile
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.
Commenter la réponse de us_30
Mayzz 2859 Messages postés mardi 15 avril 2003Date d'inscription 26 novembre 2013 Dernière intervention - 23 juin 2010 à 14:32
0
Utile
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.
Commenter la réponse de Mayzz
Ant95 26 Messages postés vendredi 30 octobre 2009Date d'inscription 27 juin 2011 Dernière intervention - 23 juin 2010 à 15:40
0
Utile
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
Commenter la réponse de Ant95
us_30 2117 Messages postés lundi 11 avril 2005Date d'inscription 14 mars 2016 Dernière intervention - 23 juin 2010 à 15:50
0
Utile
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.
Commenter la réponse de us_30
cs_aus3004 319 Messages postés jeudi 1 avril 2010Date d'inscription 16 mars 2011 Dernière intervention - 24 juin 2010 à 15:05
0
Utile
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.
Commenter la réponse de cs_aus3004
cs_aus3004 319 Messages postés jeudi 1 avril 2010Date d'inscription 16 mars 2011 Dernière intervention - 24 juin 2010 à 15:12
0
Utile
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.
Commenter la réponse de cs_aus3004

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.