无法通过电子邮件发送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

i tried the above code but got the error saying "timeout" and couldn't mail the textbox data

Answer 1

The time out is likely server related and has nothing to do with your text box value. Are you sure that you have permission to use yahoo's mail server to send email?

Answer 2

尝试使用“ smtp.gmail.com”端口：587然后启用电子邮件帐户的“访问不太安全的应用程序”选项