vb.net - SMTP.Send(Mail) 错误

Question

这是我的代码（是的，我审查了我的电子邮件/密码）（当您单击按钮时）

Dim Mail As New MailMessage
Mail.Subject = "test email"
Mail.To.Add("*****")
Mail.From = New MailAddress("*****") '
Mail.Body = "This is an email!"
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("*****", "*****")
SMTP.Port = 587
SMTP.Send(Mail)
MsgBox("Sent Successfully")

SMTP 服务器需要安全连接或客户端未通过身份验证。服务器响应为：5.5.1 需要身份验证。了解更多信息（链接没有帮助）

Answer 1

解决了！我永远不会猜到。谷歌不允许我使用我的帐户，因为它被黑了。当我写代码时，它显然被黑了......

Answer 2

仅供参考，更安全的版本是

    Using mail As MailMessage = New MailMessage
        mail.Subject = "test email"
        mail.To.Add("*****")
        mail.From = New MailAddress("*****") '
        mail.Body = "This is an email!"
        Using smtp As New SmtpClient("smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential("*****", "*****")
            smtp.Port = 587
            smtp.Send(mail)
        End Using
    End Using
    MsgBox("Sent Successfully")

这将确保清理mail和对象，无论是否发生异常。smtp