无法通过启用谷歌访问不太安全的应用程序和两步验证来解决问题
我已经启用了谷歌访问不太安全的应用程序，但我仍然遇到这个问题。。我甚至尝试过启用两步验证，但无法正常工作
Protected Sub sendMail_Click(sender As Object, e As EventArgs) Handles sendMail.Click
Dim mainconn As String = System.Configuration.ConfigurationManager.ConnectionStrings("user_ConnectionString").ConnectionString
Dim con As New SqlConnection(mainconn)
Dim query As String = "Select email, password from user_information where email = @email"
Dim cmd As New SqlCommand
cmd = New SqlCommand(query, con)
cmd.Parameters.AddWithValue("@email", txtBoxEmailSupport.Text.Trim)
con.Open()
Dim sdr As SqlDataReader = cmd.ExecuteReader()
If sdr.Read() Then
Dim email_password As String = sdr("email").ToString.Trim
Dim password_reset As String = sdr("password").ToString.Trim
Dim mm As New MailMessage("jackieyong36@gmail.com", txtBoxEmailSupport.Text.Trim)
mm.Subject = "Your forgotten Password!"
mm.Body = String.Format("Smtp is working, man~~", email_password, password_reset)
mm.IsBodyHtml = True
Dim smtp As New SmtpClient()
smtp.Host = "smtp.gmail.com"
smtp.EnableSsl = True
Dim nc As New NetworkCredential("jackieyong36gmail.com", "12345")
smtp.UseDefaultCredentials = True
smtp.Credentials = nc
smtp.Port = 587
smtp.Send(mm)
lblStatus.Text = "Your password has been sent to " + txtBoxEmailSupport.Text
Else
lblStatus.Text = "This email was not existed!"
End If
我已经用auth解决了这个问题，这段代码对我有效，从NuGet下载MailKit并添加到您的引用中。。你只需要启用不太安全的应用程序。
Private Sub SendMail()
Dim message = New MimeMessage()
message.From.Add(New MailboxAddress("Mr. Kako Kak", "yourgmail@gmail.com"))
message.[To].Add(New MailboxAddress("Mrs. Chanandler Bong", "hisgmail@gmail.com"))
message.Subject = "subjectText"
message.Body = New TextPart("plain") With {
.Text = "bodyText"
}
Using client = New SmtpClient()
client.Connect("smtp.gmail.com", 465)
client.AuthenticationMechanisms.Remove("XOAUTH2")
client.Authenticate("yourgmail@gmail.com", "yourgmailpswd")
client.Send(message)
client.Disconnect(True)
End Using
End Sub