無法通過電子郵件發送VB.NET中的文本框數據

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
    Try
        Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        SmtpServer.Credentials = New Net.NetworkCredential("gahlotprayank@yahoo.com", "*******")
        SmtpServer.Port = 465
        SmtpServer.Host = "smtp.mail.yahoo.com"
        mail = New MailMessage()
        mail.From = New MailAddress("gahlotprayank@yahoo.com")
        mail.To.Add("rebelme23@gmail.com")
        mail.Subject = TextBox1.Text
        mail.Body = TextBox2.Text
        SmtpServer.Send(mail)
        MsgBox("ok!")
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub

我嘗試了上面的代碼，但收到錯誤消息“超時”，並且無法通過郵件發送文本框數據

Answer 1

超時時間可能與服務器有關，與您的文本框值無關。 您確定您有權使用yahoo的郵件服務器發送電子郵件嗎？

Answer 2

嘗試使用“ smtp.gmail.com”端口：587然后啟用電子郵件帳戶的“訪問不太安全的應用程序”選項