ไปยังเนื้อหาหลัก

วิธีส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ใน Excel

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-11-28

ใน Excel คุณสามารถทำให้กระบวนการส่งอีเมลโดยอัตโนมัติตามเงื่อนไขเฉพาะ เช่น ค่าในเซลล์ใดเซลล์หนึ่ง ตัวอย่างเช่น คุณอาจต้องการส่งอีเมลโดยอัตโนมัติผ่าน Outlook เมื่อค่าในเซลล์ D7 เกิน 200 บทช่วยสอนนี้จะสาธิตวิธีการใช้ VBA (Visual Basic for Applications) เพื่อเรียกใช้อีเมลใน Outlook ตามค่าของเซลล์

ส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ด้วยรหัส VBA


ส่งอีเมลโดยอัตโนมัติตามค่าเซลล์ด้วยรหัส VBA

โปรดทำดังนี้เพื่อส่งอีเมลตามค่าเซลล์ใน Excel

1. ในแผ่นงานคุณต้องส่งอีเมลตามค่าของเซลล์ (ในที่นี้คือเซลล์ D7) คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:

ภาพหน้าจอของเมนูบริบทใน Excel ที่แสดงตัวเลือกดูรหัสสำหรับเวิร์กชีต

2. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัสแผ่นงาน

รหัส VBA: ส่งอีเมลผ่าน Outlook ตามค่าเซลล์ใน Excel

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

หมายเหตุ : :

1) ในโค้ด VBA D7 และ มูลค่า> 200 เป็นเซลล์และค่าเซลล์ที่คุณจะส่งอีเมลตาม
2) กรุณาเปลี่ยนเนื้อหาอีเมล์ตามที่คุณต้องการ xMailBody บรรทัดในรหัส
3) แทนที่ที่อยู่อีเมลด้วยที่อยู่อีเมลผู้รับในบรรทัด . ถึง = "ที่อยู่อีเมล".
4) และระบุผู้รับ Cc และ Bcc ตามที่คุณต้องการ .CC =“” และ สำเนาลับ =“” ส่วน
5) สุดท้ายเปลี่ยนหัวเรื่องอีเมลในบรรทัด .ubject = "ส่งโดยการทดสอบค่าเซลล์".

3 กด อื่น ๆ + Q เข้าด้วยกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไป เมื่อค่าที่ป้อนในเซลล์ D7 มากกว่า 200 อีเมลพร้อมผู้รับและเนื้อหาที่ระบุจะถูกสร้างขึ้นโดยอัตโนมัติใน Outlook คุณสามารถคลิก ส่ง เพื่อส่งอีเมลนี้ ดูภาพหน้าจอ:

ภาพหน้าจอแสดงร่างอีเมลใน Outlook ที่สร้างโดยอัตโนมัติจากค่าเซลล์ Excel

หมายเหตุ : :

1. โค้ด VBA จะทำงานเฉพาะเมื่อคุณใช้ Outlook เป็นโปรแกรมอีเมลเท่านั้น

2. หากข้อมูลที่ป้อนในเซลล์ D7 เป็นค่าข้อความหน้าต่างอีเมลจะปรากฏขึ้นเช่นกัน


ส่งอีเมลผ่าน Outlook ได้อย่างง่ายดายตามช่องของรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel

เทศกาล ส่งอีเมลล์ ประโยชน์ของ Kutools สำหรับ Excel ช่วยให้ผู้ใช้ส่งอีเมลผ่าน Outlook ตามรายชื่อผู้รับจดหมายที่สร้างขึ้นใน Excel

ภาพหน้าจอของอินเทอร์เฟซยูทิลิตี้ส่งอีเมลของ Kutools สำหรับ Excel

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Get It Now


บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!