电子邮件服务器超时错误，我正在尝试从我的应用程序发送电子邮件，但它不起作用答案

【问题标题】：Time out error for Email server, i am trying to send and email from my application but its not working电子邮件服务器超时错误，我正在尝试从我的应用程序发送电子邮件，但它不起作用
【发布时间】：2020-08-30 23:54:33
【问题描述】：

我做了一个应用程序，我需要向我自己发送一些信息我不知道该怎么做，所以我决定通过电子邮件发送它也不起作用给出超时错误这是代码

`Private Sub Button1_Click(sender As Object, e As EventArgs) 处理 Button1.Click

    Dim s As New SmtpClient
    s.Host = "smtp.gmail.com"
    s.Port = 465
    s.EnableSsl = True
    s.Timeout = 55000
    s.UseDefaultCredentials = False
    s.Credentials = New NetworkCredential("********@gmail.com", "*************")
    Dim m As New MailMessage
    m.To.Add("******@gmail.com")
    m.From = New MailAddress("*******@gmail.com")
    m.Body = "Test Message"
    m.Subject = "Test Subject"
    s.Send(m)
    MsgBox("done")
    Exit Sub
End sub`

【问题讨论】：

标签： vb.net

【解决方案1】：

我们使用端口 587 通过 .NET 应用程序发送电子邮件。 确保发件人的 Gmail 帐户有权访问“安全性较低的应用”权限，如图所示：

看看它是否有效，如果无效，然后尝试以下代码，不要忘记使用您的足够信息对其进行自定义：

Dim SmtpCRequest As New SmtpClient
Dim MailProperty As New MailMessage()

With SmtpCRequest
    .UseDefaultCredentials = False
    .Credentials = New Net.NetworkCredential(<username>, <password>)
    .Port = 587
    .EnableSsl = True
    .Host = "smtp.gmail.com"
End With

With MailProperty
    .From = New MailAddress(New TripleDES("TOKEN").DecryptData(Cred(0)))
    .To.Add("******@gmail.com")
    .Subject = "Your Subject"
    .IsBodyHtml = False
    .Body = "Email Body is here."
End With

SmtpCRequest.Send(MailProperty)
MailProperty.Dispose()

【讨论】：