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
我尝试了上面的代码,但收到错误消息“超时”并且无法邮寄文本框数据