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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.