Probléme Finalisation D'un Send Mail VB
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
Citation:
{"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:
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..
