ne peut pas envoyer yahoo email en utilisant vb.net

Question

Je travaille avec un programme qui peut envoyer un courriel supportant Yahoo Mail et Gmail. Et cela fonctionne dans Gmail (si l'expéditeur utilise Gmail) Mais cela ne fonctionnera pas si l'expéditeur utilise le courrier Yahoo. Voici mon code:

mail.From = New MailAddress(TextBox2.Text) 
    mail.To.Add(New MailAddress(TextBox1.Text)) 
    mail.Subject = TextBox4.Text 
    mail.Body = TextBox4.Text 



    mail.IsBodyHtml = True 

    Dim client2 As SmtpClient = New SmtpClient("smtp.mail.yahoo.com", 25) 
    Dim client As SmtpClient = New SmtpClient("smtp.gmail.com", 587) 




    client.EnableSsl = True 
    client.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text) 


    Try 
     client.Send(mail) 
    Catch ex As Exception 
     MessageBox.Show("Sending email failed. Please Try again") 

Answer 1

On dirait que vous pourriez utiliser le wrong port? Essayez cette

Dim client2 As SmtpClient = New SmtpClient("smtp.mail.yahoo.com", 587) 

---

EDIT OK, qui ne fonctionne pas. En fait, l'adresse SMTP n'est-elle pas incorrecte?

Dim client2 As SmtpClient = New SmtpClient("plus.smtp.mail.yahoo.com", 587) 

Vous pouvez également envelopper tout le programme dans un bloc Try et attraper tout SmtpException et écrire le SmtpStatusCode spécial:

Try 
    ' Blah blah ' 
Catch (SmtpException e) 
    Console.WriteLine("Error: {0} {1}", e.StatusCode, e.ToString) 
End Try 

Answer 2

Yahoo utilise le port 465 pour les utilisateurs non payants (services d'abonnement).