1. ให้ทำการสร้างฟอร์ม จากนั้นทำการออกแบบหน้าจอตามตัวอย่าง
- txtTo คือ email ที่เราต้องการส่ง
- txtSubject คือ ข้อความหัวเรื่อง
- txtMessage คือข้อความที่ส่ง
- กำหนด Multiline = true
- lblSendResult ไว้สำหรับแสดงสถานะการส่งว่าสำเร็จหรือไม่
- ปุ่ม Send Mail ไว้คลิกส่ง email
- txtSubject คือ ข้อความหัวเรื่อง
- txtMessage คือข้อความที่ส่ง
- กำหนด Multiline = true
- lblSendResult ไว้สำหรับแสดงสถานะการส่งว่าสำเร็จหรือไม่
- ปุ่ม Send Mail ไว้คลิกส่ง email
2. จากนั้นทำการดับเบิ้ลคลิกที่ปุ่ม Send Mail เพื่อทำการเขียนคำสั่ง ดังนี้ (คำสั่งสีน้ำเงิน)
** ทำการ Import System.Net.Mail เข้ามาด้วย ห้ามลืม เดี๋ยวจะ Error
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Mail As New MailMessage
Try
Mail.Subject = txtSubject.Text
Mail.To.Add(txtTo.Text)
Mail.From = New MailAddress("ใส่EmailของGoogle@gmail.com")
Mail.Body = txtMessage.Text
' หากต้องการแนบไฟล์ ก็เพิ่มตรงส่วนนี้เข้าไป
Dim attachment As System.Net.Mail.Attachment
attachment = New System.Net.Mail.Attachment("D:\Pictures\vbSendMail.png")
Mail.Attachments.Add(attachment)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("ใส่EmailของGoogle@gmail.com", "ใส่ Email Password")
SMTP.Port = 587
SMTP.Send(Mail)
lblSendResult.Text = "Email sent successfully!"
txtTo.Text = ""
txtSubject.Text = ""
txtMessage.Text = ""
Catch ex As Exception
lblSendResult.Text = ex.Message
End Try
End Sub
End Class
ทำการบันทึกฟอร์ม
3. จากนั้นทำการ login เข้าไปที่ gmail ที่เราจะใช้สำหรับเป็นตัวส่ง email
4. หลังจากที่ login เข้า gmail แล้วให้เข้าไปกำหนดสิทธิโดยเข้าไปที่เว็บ
https://myaccount.google.com/lesssecureapps
แล้วทำการเปิดสิทธิ์ตามภาพ
จากนั้นก็ไป run ฟอร์มที่ VB.Net แล้วทดสอบส่ง Email ดู
หมายเหตุ สำหรับการกำหนดค่า เซิร์ฟเวอร์ SMTP ของ gmail สามารถเข้าดูได้ที่
https://support.google.com/a/answer/176600?hl=th
โชคดีมีเมล์ส่ง
ไม่มีความคิดเห็น:
แสดงความคิดเห็น