0

我在 Visual Basic 中有一个可以正常工作的邮件客户端，可以完美地发送电子邮件。然后有一天它停止了工作。当我在我的方法上使用 VBtry/catch时，它抛出的异常是Failure Sending Mail.

这当然无济于事，因为它非常普遍。我不知道为什么没有发送邮件。我搜索了网络以及 StackOverflow，但所提供的解决方案均不适合我。

我试过 Aol 和 Gmail，我确信所有的密码和用户名都是正确的。端口也是正确的。可能是什么问题呢？

        Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles PictureBox2.Click
    Try
        Dim smtpServer As New SmtpClient("smtp.aol.com")
        Dim Mail As New MailMessage()
        smtpServer.UseDefaultCredentials = False
        smtpServer.Credentials = New Net.NetworkCredential("Email", "Pass"
        smtpServer.Port = 587
        smtpServer.Host = "smtp.aol.com"
        smtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
        smtpServer.EnableSsl = True
        Mail.From = New MailAddress("Email")
        Mail.To.Add("Email")
        smtpServer.Send(Mail)
    Catch Ex As Exception
        MsgBox(Ex.Message)
    End Try
4

0 回答 0