2013-10-06 276 views
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 
+0

你有沒有嘗試通過端口25沒有SSL發送它? –

回答

0

您可以嘗試更改gmail的端口爲587。 並添加try塊

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

(這裏補充合適的字符串)

也嘗試運行它沒有

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

我可以在C#中,如果你需要作爲工作添加我的代碼我不知道VB

相關問題