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

Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Dernière intervention
27 juin 2011
- - Dernière réponse : Ant95
Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Dernière intervention
27 juin 2011
- 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 

Votre réponse

7 réponses

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

En tout cas merci à tous pour vos propositions ;)

@+

Ant95

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de Ant95
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Dernière intervention
14 mars 2016
0
Merci
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
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Dernière intervention
26 novembre 2013
0
Merci
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
Messages postés
26
Date d'inscription
vendredi 30 octobre 2009
Dernière intervention
27 juin 2011
0
Merci
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
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Dernière intervention
14 mars 2016
0
Merci
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
Messages postés
319
Date d'inscription
jeudi 1 avril 2010
Dernière intervention
16 mars 2011
0
Merci
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
Messages postés
319
Date d'inscription
jeudi 1 avril 2010
Dernière intervention
16 mars 2011
0
Merci
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.