Ошибка при отправке сообщения электронной почты с Basic

Question

Я делал клиент визуальной электронной почты с помощью Visual Basic 2010

Вот код для отправки сообщения электронной почты:

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

порт SMTP для GMAIL является 465 не 456

Gmail имеет 2 порта SMTP, если у вас нет учетной записи G-Suite, в которой порт 25 становится доступным.

порт 465 (SSL) Порт 587 (TLS)

Если вы программируете в вашем доме, большинство провайдеров INTERNET блок SMTP Отправка порты.

Так что первое, что вы должны сделать, это убедиться, что вы можете подключиться через TELNET

Откройте командную строку и введите:

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

Если вы можете подключиться к Telnet портов, то вы должны иметь возможность заставить ваш код работать, чтобы отправлять почту через него.

сетевые учетные данные должны быть вашим Gmail счета:

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

Так что я предполагаю, что это больше похоже на:

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

Answer 2

Попробуйте включить меньше Безопасные приложения для вашей учетной записи. https://support.google.com/accounts/answer/6010255?hl=en.

Приветствия, Radu