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

วิธีส่ง 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

Sub send_mail()

Dim OutlookApp As Outlook.Application

Dim MItem As Outlook.MailItem

Set OutlookApp = New Outlook.Application

Set MItem = OutlookApp.CreateItem(olMailItem)

With MItem

.To = "abc@yahoo.com;def@gmail.com" ' range("a1").value

'.CC = ""

.Subject = "Monthly Report Jan2019"

.Body = "Take a look at chart"

.Attachments.Add ("C:\test.txt")

.Send

End With

End Sub

ถ้าใครใช้ Power Automate Desktop

เราสามารถสั่งให้ ส่ง mail ได้เหมือนกัน

Page updated

Report abuse