[VB.Net]發送G-Mail模組

以GMail發縮郵件之模組

1. Imports System.Net
   
2. 
   
3. Module GMail
   
4. 
   
5.     ''' <summary>
   
6.     ''' 透過SMTP協定發送G-Mail郵件。
   
7.     ''' </summary>
   
8.     ''' <param name="Account">用來發送郵件的帳號</param>
   
9.     ''' <param name="Password">用來發送帳號的密碼</param>
   
10.     ''' <param name="Sender">寄件者，Ex： Inndy＜Inndy.mail@gmail.com＞</param>
    
11.     ''' <param name="Recipients">寄件者，Ex： Inndy＜Inndy.mail@gmail.com＞</param>
    
12.     ''' <param name="Title">郵件標題</param>
    
13.     ''' <param name="Body">郵件內容</param>
    
14.     ''' <remarks></remarks>
    
15.     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)
    
16.         Dim MySmtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
    
17.         MySmtp.Credentials = New System.Net.NetworkCredential(Account, Password)
    
18.         MySmtp.EnableSsl = True
    
19.         MySmtp.Send(Sender, Recipients, Title, Body)
    
20.     End Sub
    
21. End Module

複製代碼

存成模組使用，Gmail帳號請記得設定SMTP寄信。


使用範例：

1. SendGMail("123.mail@gmail.com", "Password", "HAHAHA", "1234567635@kimo.com", "測試郵件標題", "郵件內容")