[Vb.net] 使用Gmail模組輕鬆在程式中發送信件!

有時候我們會需要回傳使用者的使用經驗或其電腦中的資訊,連接SQL Server雖然是一個比較專業的做法,不過對新手來說有些複雜,如果要做成方便檢閱或看起來賞心悅目的表格也需要花一點時間去寫一個後台,這樣的話不妨試試看把使用者的資料打包回傳到你的Gmail信箱,雖然需要用到發信者的帳號密碼,不過這問題非常簡單,只要自己申請一個不重要的分身帳號,用以回發信你想要檢閱的帳號就行啦。


程式碼

  1. Imports System.Net
  2. Module GMail
  3.     ”’ <summary>
  4.     ”’ 透過SMTP協定發送G-Mail郵件。
  5.     ”’ </summary>
  6.     ”’ <param name=”Account”>用來發送郵件的帳號</param>
  7.     ”’ <param name=”Password”>用來發送帳號的密碼</param>
  8.     ”’ <param name=”Sender”>寄件者,Ex: Inndy<[email protected]></param>
  9.     ”’ <param name=”Recipients”>寄件者,Ex: Inndy<[email protected]></param>
  10.     ”’ <param name=”Title”>郵件標題</param>
  11.     ”’ <param name=”Body”>郵件內容</param>
  12.     ”’ <remarks></remarks>
  13.     Public Sub SendGMail(ByVal Account As String, ByVal Password As String, ByVal Sender As String, ByVal Recipients As String, ByVal Title As String, ByVal Body As String)
  14.         Dim MySmtp As New System.Net.Mail.SmtpClient(“smtp.gmail.com”, 587)
  15.         MySmtp.Credentials = New System.Net.NetworkCredential(Account, Password)
  16.         MySmtp.EnableSsl = True
  17.         MySmtp.Send(Sender, Recipients, Title, Body)
  18.     End Sub
  19. End Module

調用方式

SendGMail("[email protected]", "Password", "HAHAHA", "[email protected]", "測試郵件標題", "郵件內容")