首先要加入 System.Net.Mail 命名空間,

 

加入一個SendMail方法如下:
Public Sub SendMail()
Dim myMail As New MailMessage()
myMail.From = New MailAddress("Arvin@gmail.com", "Arvin") '發送者
myMail.To.Add("123@gmail.com") '收件者
myMail.Bcc.Add("456@gmail.com") '隱藏收件者
myMail.CC.Add("789@gmail.com") '副本
myMail.SubjectEncoding = Encoding.UTF8 '主題編碼格式
myMail.Subject = "測試郵件" '主題
myMail.IsBodyHtml = True 'HTML語法(true:開啟false:關閉)
myMail.BodyEncoding = Encoding.UTF8 '內文編碼格式
myMail.Body = "TEST123" '內文
myMail.Attachments.Add(New System.Net.Mail.Attachment("C:\Files\FileA.txt")) '附件

 

Dim mySmtp As New SmtpClient() '建立SMTP連線
mySmtp.Credentials = New System.Net.NetworkCredential("test@gmail.com", "123456") '連線驗證
mySmtp.Port = 587 'SMTP Port
mySmtp.Host = "smtp.gmail.com" 'SMTP主機名稱
mySmtp.EnableSsl = True '開啟SSL驗證
mySmtp.Send(myMail) '發送
End Sub

 

通過使用以上方法就可以發送郵件,另外還有一種設定于web.config的方法如下:

 

先設定web.config
<configuration>
<system.net>
<mailSettings>
<smtp>
<network host ="smtp.gmail.com"
userName ="帳號@gmail.com"
port ="587"
password ="密碼" />
</smtp>
</mailSettings>
</system.net>
</configuration>

 

web.config設定完成後,于程式區段使用以下方法呼叫:
Dim mySmtp As New SmtpClient
Dim myMail As MailMessage = New MailMessage("發信者@gamil.com", "收信者@gmail.com", "標題", "內文")
mySmtp.Send(myMail)
創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()