我有一個程序,我已經設置了一個家庭自動化應用程序。我的目標是在發生嚴重錯誤時將其發送給我,但我遇到了smtp部分的問題。我能夠使用我公司的SMTP工作,使我的應用程序工作得很好(基本上,我想在嘗試轉向免費選項之前先開始一個工作的,封閉的系統,因爲那些限制性更強,具有諷刺意味)。是否仍可以使用SMTP發送電子郵件/文本?
我已經在網上運行了很多很多的例子,它似乎是SMTP阻塞某些方法/端口的問題。我已經嘗試了下面的代碼與端口25,465和587(在線使用的公共端口)。我也嘗試將EnableSs1更改爲false,但那也沒有奏效。
我知道我可以爲SMTP服務器支付費用,但我試圖首先以便宜的價格購買(免費)。實際上,我並不期望需要很多通知。我發現turboSMTP,這是免費的,但我不得不使用免費的電子郵件地址,他們驗證您的家庭地址(這聽起來有點陰涼......)。
無論如何,我的代碼如下。如果有任何方法可以使這項工作(或者如果你知道一個免費的,可用的SMTP或甚至另一種方法來做到這一點),請讓我知道!
我非常願意自己做這個工作,我不只是試圖從別人那裏得到解決方案,但是我知道該怎麼做的最後。任何幫助,你可以給我,將不勝感激。謝謝!
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = True
Smtp_Server.EnableSsl = False
Smtp_Server.Host = "smtp.gmail.com"
Smtp_Server.Port = 465
Smtp_Server.EnableSsl = True
e_mail.From = New MailAddress("From Email Address", "From Email Name")
e_mail.To.Add("My Phone [email protected]")
e_mail.Subject = "Hello there!"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)
Catch ex As Exception
MsgBox(ex.Message)
End Try
此代碼接收的錯誤消息是什麼?任何與無效憑證有關的東西? – Steve
哦,這是一個相當長的響應端口25或587(失敗,發送電子郵件,無法連接到刪除服務器,試圖訪問一個套接字的方式禁止它的訪問權限等)。聽起來像這些端口只是平坦的被阻止以這種方式被使用。雖然端口465似乎超時。 –
你表明你想要的只是一項免費服務。 FWIW,我在AOL上添加了一個NetworkCredential來測試你的代碼,它工作正常。根據他們的設置說明,只需使用端口587和Enablessl = True即可。 – TnTinMn