无法通过电子邮件发送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然后启用电子邮件帐户的“访问不太安全的应用程序”选项