Question

我几乎尝试了所有的东西，但无法让它发挥作用。我将不胜感激任何帮助。感谢

   Imports Microsoft.VisualBasic, System.Net.Mail

   Shared Sub SendMailHTML(ByVal ToAdd, ByVal FromAdd, ByVal Message, ByVal Subject)

    Dim mail As New MailMessage()

    Dim SmtpServer As New SmtpClient()
    SmtpServer.Host = "smtp.gmail.com"
    SmtpServer.Credentials = New Net.NetworkCredential("xxxx@gmail.com", "xxxxxx")
    SmtpServer.UseDefaultCredentials = False
    SmtpServer.Port = 465
    SmtpServer.EnableSsl = True
    SmtpServer.Timeout = 5000
    SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network

    Try
        mail.From = New MailAddress("xxxxx@gmail.com")
        mail.To.Add("xxxxxx@gmail.com")

        SmtpServer.Send(Mail)
    Catch ex As Exception
        MsgBox(ex.ToString())
    End Try

End Sub

Answer 1

您可以尝试将端口更改为587 for gmail。并且还添加了try块

    mail.Subject= ...
    mail.Body= ...

（在这里添加合适的字符串）

也可以尝试在没有

的情况下运行它

    SmtpServer.UseDefaultCredentials = False
    SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network

我可以在C＃中添加我的代码，如果你需要，我可以使用，因为我不知道VB

传输无法连接到服务器

1 个答案: