Envoi de message avec Yahoo

Bonjour,

Voilà mon problème : Je n'arrive pas à envoyer de message avec une adresse yahoo, j'ai cherché partout mais je ne trouve pas.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim smtpserver As New SmtpClient() Dim mail As New MailMessage smtpserver.Credentials = New Net.NetworkCredential(TextBox6.Text, TextBox7.Text) smtpserver.Port = 465 smtpserver.Host = "smtp.mail.yahoo.fr" smtpserver.EnableSsl = True mail.From = New MailAddress(TextBox6.Text) mail.Subject = TextBox9.Text mail.To.Add(TextBox8.Text) mail.Body = TextBox10.Text smtpserver.Send(mail)

---

Je ne reçois jamais le message, quelle est le problème dans mon code ?

Merci d'avance. :)

Edit :
Personne ? Peut-être c'est le port mais j'ai cherché partout et j'ai testé tous les ports et smtp qu'on m'a donné mais rien.