0
我已經嘗試了幾乎所有的東西,但不能得到這個工作。我會感謝任何幫助。謝謝傳輸失敗連接到服務器
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("[email protected]", "xxxxxx")
SmtpServer.UseDefaultCredentials = False
SmtpServer.Port = 465
SmtpServer.EnableSsl = True
SmtpServer.Timeout = 5000
SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
Try
mail.From = New MailAddress("[email protected]")
mail.To.Add("[email protected]")
SmtpServer.Send(Mail)
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
你有沒有嘗試通過端口25沒有SSL發送它? –