Fehler E-Mails mit Visual Basic

Question

Ich mache eine E-Mail-Client mit Visual Basic 2010

Hier ist der Code sendet die E-Mails senden:

Try 
    Dim SmtpServer As New SmtpClient() 
    Dim mail As New MailMessage() 
    SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network 
    SmtpServer.EnableSsl = True 
    SmtpServer.Credentials = New Net.NetworkCredential("********@*********".Trim(), "*************".Trim()) 
    SmtpServer.Port = 456 
    SmtpServer.Host = "smtp.gmail.com" 
    mail = New MailMessage() 
    mail.From = New MailAddress("inviamentatoreemaille@gmail.com") 
    mail.To.Add("************@******") 
    mail.Subject = TextBox1.Text 
    mail.Body = TextBox2.Text 
    SmtpServer.Send(mail) 
Catch ex As Exception 
    MsgBox(ex.ToString) 
End Try 

Answer 1

Der SMTP-Port für GMAIL ist 465 nicht 456

Gmail verfügt über 2 SMTP-Ports, sofern Sie nicht über ein G-Suite-Konto verfügen, für das Port 25 verfügbar ist.

Port 465 (SSL) -Port 587 (TLS)

Wenn Sie bei Ihnen zu Hause die Programmierung sind die meisten Internet-Provider blockieren SMTP Senden Ports.

Das erste, was Sie tun sollten, stellen Sie sicher, Sie in der Lage sind, über TELNET verbinden

eine Eingabeaufforderung öffnen und geben Sie in:

telnet smtp.gmail.com 465 
telnet smtp.gmail.com 587 

Wenn Sie in der Lage sind, mit dem Telnet verbinden Ports, dann sollten Sie in der Lage sein, Ihren Code zum Senden von E-Mails durch ihn arbeiten zu lassen.

Ihre Netzwerk-Anmeldeinformationen haben Ihr Google Mail-Konto sein:

SmtpServer.Credentials = New Net.NetworkCredential("********@*********".Trim(), "*************".Trim()) 

Also vorausgesetzt, ich bin es ist eher wie:

SmtpServer.Credentials = New Net.NetworkCredential("example@gmail.com", "Password") 

Answer 2

versuchen, weniger sichere Apps für Ihr Konto zu aktivieren. https://support.google.com/accounts/answer/6010255?hl=en.

Cheers, Radu