Visual Basic 2010使用gmail SMTP发送电子邮件

Question

我想从我的Visual Basic表单发送电子邮件

我的代码：

   Private Sub email1()
    Try
        Dim Smtp_Server As New SmtpClient
        Dim e_mail As New MailMessage()
        Smtp_Server.UseDefaultCredentials = False
        Smtp_Server.Credentials = New Net.NetworkCredential("MYEMAIL@gmail.com", "MYPASS")
        Smtp_Server.Port = 465
        Smtp_Server.EnableSsl = True
        Smtp_Server.Host = "smtp.gmail.com"

        e_mail = New MailMessage()
        e_mail.From = New MailAddress("MYEMAIL@gmail.com")
        e_mail.To.Add("MYFRIENDEMAIL@gmail.com")
        e_mail.Subject = "SUBJECT"
        e_mail.IsBodyHtml = False
        e_mail.Body = "TEXT MESSAGE"
        Smtp_Server.Send(e_mail)


    Catch error_t As Exception
        email_status.Text = ("Error: " & error_t.Message)
        MsgBox(error_t.Message)
        Exit Sub
    End Try
    email_status.Text = ("OK")
End Sub

使用smtp.gmail.com时出现错误

使用SMTP端口465时：操作已超时。

使用SMTP端口587时：发送电子邮件失败。

使用SMTP端口25时：发送电子邮件失败。

---

使用smtp.googlemail.com时出现

错误

使用SMTP端口465时：操作已超时。

使用SMTP端口587时：发送电子邮件失败。

使用SMTP端口25时：发送电子邮件失败。

---

我正在使用AVAST防病毒软件，但我将其关闭

你能帮我吗？

非常感谢你。