1 
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

我尝试了上面的代码，但收到错误消息“超时”并且无法邮寄文本框数据

在此处输入图像描述

4

2 回答 2

1

超时可能与服务器有关，与您的文本框值无关。您确定您有权使用 yahoo 的邮件服务器发送电子邮件吗？

于 2013-06-10T21:34:40.527 回答
0

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

于 2015-03-24T14:10:05.913 回答