Imports System.Net
....
Dim Mail As New MailMessage()
Mail.To.Add(New MailAddress("TO1@email.com"))
Mail.To.Add(New MailAddress("TO2@email.com"))
....
Mail.CC.Add(New MailAddress("CC1@email.com"))
Mail.CC.Add(New MailAddress("CC2@email.com"))
....
Mail.BCC.Add(New MailAddress("BCC1@email.com"))
Mail.BCC.Add(New MailAddress("BCC2@email.com"))
....
Mail.From = New MailAddress("FROM@email.com")
Mail.Subject = "......"
Mail.Body = "......"
Mail.IsBodyHtml = True
Dim Smtp As New SmtpClient("smtp.email.com")
Smtp.Send(Mail)ชื่อ SMTP server ใช้ IP แทนก็ได้นะครับ
กรณีที่ SMTP server มีการตรวจสอบสิทธิ์ ก็ให้เพิ่มโค้ดในส่วน SmtpClient เป็น
Dim Smtp As New SmtpClient("smtp.email.com")
Smtp.DeliveryMethod = SmtpDeliveryMethod.Network
Smtp.Credentials = New NetworkCredential("UserName", "Password")
Smtp.Send(Mail)
ถ้า SMTP Server กำหนดให้ใช้ SSL\TLS (SSL ใช้ port หมายเลข 465 ,TLS ใช้ port หมายเลข 587) เพิ่ม properties ใช้อ็อบเจ็คดังนี้
Dim Smtp As New SmtpClient("smtp.email.com")
Smtp.DeliveryMethod = SmtpDeliveryMethod.Network
Smtp.Credentials = New NetworkCredential("UserName", "Password")
Smtp.EnableSsl = True
Smtp.Port = 587 '465
Smtp.Send(Mail)
บางคนอาจจำเป็นต้องเปลี่ยน SMTP บ่อยๆ หรือเปลี่ยน SMTP User บ่อยๆ ก็อาจจะระบุรายละเอียดของ SMTP Server ไว้ใน Web.config หรือ app.config เลยก็ได้ครับ
<configuration> .... <system.net> <mailsettings> <smtp deliverymethod="Network"> <network host="smtp.email.com" username="..." password="..." port="..." /> </smtp> </mailsettings> </system.net> .... </configuration><-- บทความกำลังเขียนต่อ -->
แหล่งข้อมูล :
dotnetcurry.com
DaniWeb
velocityreviews
SMTP gmail outlook
SMTP gmail Thunderbird 2.0
geekswithblogs.net
astahost.com