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