send Mail VB net

Version imprimable

send Mail VB net

Bonjour

j'ai un problem d'envoi mail par vb net sachant que j'ai modifier les parametres de securite de mon compte et j'ai activé POP
erreur : échec lors de l'authentification.

voici le

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports System.Net.Mail
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspoint.com"
   End Sub
 
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Try
         Dim Smtp_Server As New SmtpClient
         Dim e_mail As New MailMessage()
         Smtp_Server.UseDefaultCredentials = False
         Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
         Smtp_Server.Port = 587
         Smtp_Server.EnableSsl = True
         Smtp_Server.Host = "smtp.gmail.com"
 
         e_mail = New MailMessage()
         e_mail.From = New MailAddress(txtFrom.Text)
         e_mail.To.Add(txtTo.Text)
         e_mail.Subject = "Email Sending"
         e_mail.IsBodyHtml = False
         e_mail.Body = txtMessage.Text
         Smtp_Server.Send(e_mail)
         MsgBox("Mail Sent")
 
      Catch error_t As Exception
         MsgBox(error_t.ToString)
      End Try
   End Sub

09/12/2020, 11h47
m4k-Hurrican

Bonjour,

Je ne vois pas d'erreur flagrante, mais est-tu sûr de tes identifiants (je comprends que tu n’aie pas mis les vrais dans le code exemple) ? (vérifie qu'il n'y a pas de blanc qui traine)
Toutefois, essaye le port 465 plutôt que 587, puisque tu passes par l'option de sécurité SSL.

Edit : Ah et POP n'a rien à voir avec l'envoi, c'est un protocole de réception, très ancien, on lui préfère souvent IMAP, même si lui non plus n'est pas jeune, et doit être prochainement remplacé. ;)

Edit 2 : Au fait, ton identifiant d'envoi est bien chez @gmail.com (ou.fr) ?
09/12/2020, 12h14
Phil Rob

1 pièce(s) jointe(s)

Bonjour,

Attention que pour envoyer des mails par cette approche, il faut que le compte GMail autorise les applications moins sécurisées.
Cela ce règle dans la gestion du compte, comme illustré ci-dessous.
Attention encore que, si ce compte n'est pas utilisé pendant un "certain temps", GMail ré-interdit les applications moins sécurisées. Il faut alors retourner dans la gestion du compte pour les autoriser à nouveau.

C'est peut-être la source de ton problème ... :)

Pièce jointe 586228
10/12/2020, 08h51
Hervy

1 pièce(s) jointe(s)

Citation:

Envoyé par m4k-Hurrican

Bonjour,

Je ne vois pas d'erreur flagrante, mais est-tu sûr de tes identifiants (je comprends que tu n’aie pas mis les vrais dans le code exemple) ? (vérifie qu'il n'y a pas de blanc qui traine)
Toutefois, essaye le port 465 plutôt que 587, puisque tu passes par l'option de sécurité SSL.

Edit : Ah et POP n'a rien à voir avec l'envoi, c'est un protocole de réception, très ancien, on lui préfère souvent IMAP, même si lui non plus n'est pas jeune, et doit être prochainement remplacé. ;)

Edit 2 : Au fait, ton identifiant d'envoi est bien chez @gmail.com (ou.fr) ?

je suis sure de mes identifiants j'ai essaie tous les ports , mais en vain

Pièce jointe 586319
11/12/2020, 10h34
m4k-Hurrican

As tu regardé la réponse de Phil Rob ?
Et tu n'as pas confirmé que tu utilisais un identifiant gmail pour l'envoi. Sinon, Google considère que tu fais du relay et dans ce cas il faut utiliser un autre serveur smtp et il faut changer des paramètres dans le compte.

Resolu

Bonjour

merci pour vos reponses, j'ai pas reussi avec la classe system.net.Mail.
mais j'ai trouvé une autre solution ça marche tres bien (ajouter référence EASendMail.dll )
voici le code complet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Imports EASendMail
Public Class Form1
    Private Function _createMail() As SmtpMail
        Dim mail As SmtpMail = New SmtpMail("TryIt")
        mail.From = "adfrom@gmail.com"
        mail.[To] = "adto@gmail.com"
        mail.Cc = ""
        mail.Subject = "TestObj"
        mail.TextBody = "Bonjour bien reussi"
        mail.AddAttachment("C:\Users\Documents\Visual Studio 2012\Bon.rpt")
        Return mail
    End Function
    Private Function _createSmtpServer() As SmtpServer
        Dim server As SmtpServer = New SmtpServer("smtp.gmail.com")
        server.ConnectType = SmtpConnectType.ConnectSSLAuto
        server.Port = 587
        server.User = "identifiant@gmail.com"
        server.Password = "********"
        Return server
    End Function
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim smtp As SmtpClient = New SmtpClient()
            Dim server As SmtpServer = _createSmtpServer()
            Dim mail As SmtpMail = _createMail()
            smtp.SendMail(server, mail)
            MsgBox("mail envoyé")
        Catch exp As Exception
            MessageBox.Show(exp.Message)
        End Try
    End Sub
End Class