วิธีส่ง mail อัตโนมัติทันทีใน Excel ด้วย VBA

ใน Excel เราสามารถเขียน VBA สั่งให้ส่ง email อัตโนมัติ ทันที หลังจาก ทำงาน เสร็จ บน Excel 

มี code และ วิธีการตามนี้

1.ในหน้าต่าง VBA ต้องเพิ่ม Outlook Objects ก่อน 

Tools - > Reference -> ติ๊ก ที่ Microsoft Office 









2.สร้าง procedure และ ใส่ code ตามนี้




OutlookApp เป็นตัวแปรที่ถูก ตั้งขึ้นมาให้เป็น โปรแกรม Microsoft Outlook

Mitem เป็นตัวแปรที่ถูก ตั้งเป็น item ของ email ใน outlook


Object Mailitem สามารถ กำหนด Property กำหนด email ของผู้รับ โดยใช้ To หรือ CC 

และยังสามารถใช้ Method .Attachments ในการ attach file ในการส่งได้ด้วย

การระบุแบบตรงๆ สามารถ ระบุแบบนี้ก็ได้

.To = "aa@gmail.com"

.CC ="bb@gmail.com"


หรือ จะระบุ แบบใน code ด้านบน 

โดยใน code ด้านบน ให้ส่ง email ไปที่ email address ที่เก็บอยู่ช่อง A1 ของ Sheet ชื่อ List