Bonjour tout le monde,

Je vient de suivre un tutoriel qui apparait sur le site "Youtube" et j'ai suivis le tutoriel a la lettre prêt.. Voici le tutoriel

Cependant, lui n'a pas de problème tandis que moi (oui) :'( Une fois que j'execute le fichier Debug et j'envoi le mail, il me trouve ce problème


{"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 "}

Je sait vraiment pas quoi faire..


Voici l'interieur de mon fichier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 System.Net.Mail
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        ProgressBar1.Value = 10
        Dim Mail As New MailMessage()
        ProgressBar1.Value = 17
        smtpServer.Credentials = New Net.NetworkCredential("username", "password")
        ProgressBar1.Value = 23
        'using gmail
        smtpServer.Port = 587
        ProgressBar1.Value = 28
        smtpServer.Host = "smtp.gmail.com"
        ProgressBar1.Value = 40
        smtpServer.EnableSsl = True
        Mail = New MailMessage()
        Mail.From = New MailAddress("username@gmail.com")
        Mail.To.Add("to@addrress.com")
        Mail.Subject = ComboBox1.SelectedItem.ToString
        Mail.Body = TextBox1.Text
        smtpServer.Send(Mail)
        MsgBox("Mail Envoyer")
 
 
 
    End Sub
End Class


Aider moi s'il vous plait..



Cordialement..