[ERREUR] envoi mail vb (via SMTP)

Bonjour,

Je viens de terminer mon programme mais j'ai une seul erreur, elle viens de l'envoi du mail !

Voila le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SendMail()
Dim Mail As New MailMessage()
Dim SMTP As New SmtpClient("smtp.gmail.com")
 
Mail.From = New MailAddress("xxx@gmail.com")
Mail.To.Add("xxx@gmail.com")
Mail.Subject = ("Le sujer")
Mail.Body = ("Le message")
 
SMTP.Port = ("587")
SMTP.Credentials = New System.Net.NetworkCredential("XXX@gmail.com", "mot de passe")
SMTP.EnableSsl = True
 
SMTP.Send(Mail)

Quand je teste, il me met sa (copier via le bouton qui le propose) :

Code:

1
2
3
4
5
6
7
8
9
10
11
L'exception System.Net.Mail.SmtpException s'est produite
  HResult=-2146233088
  Message=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
  Source=System
  StackTrace:
       à System.Net.Mail.MailCommand.CheckResponse(SmtpStatusCode statusCode, String response)
       à System.Net.Mail.MailCommand.Send(SmtpConnection conn, Byte[] command, MailAddress from, Boolean allowUnicode)
       à System.Net.Mail.SmtpTransport.SendMail(MailAddress sender, MailAddressCollection recipients, String deliveryNotify, Boolean allowUnicode, SmtpFailedRecipientException& exception)
       à System.Net.Mail.SmtpClient.Send(MailMessage message)
       à WindowsApplication1.Form1.SendMail() dans C:\Users\Alan\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb:ligne 21
  InnerException:

J'ai tester en changeant le port, avec live.com mais je n'arrive toujours pas !

Merci !