วิธีการส่งอีเมลหลายฉบับจากสเปรดชีต Excel (2 วิธีง่ายๆ)

เราจัดเก็บข้อมูลประเภทต่างๆ ใน ​​Excel . ของเรา ใบงาน ตัวอย่างเช่น สามารถมี อีเมล ที่อยู่ของบุคคลสำคัญหรือบริษัทอื่น และเราอาจต้องส่งอีเมลไปยังที่อยู่เหล่านั้นเมื่อจำเป็น แต่การคัดลอกที่อยู่ซ้ำแล้วซ้ำอีกสำหรับแต่ละรายการนั้นค่อนข้างเหนื่อยและใช้เวลานาน ในบทความนี้ เราจะแสดงวิธีการที่ง่ายและมีประสิทธิภาพในการ ส่งอีเมลหลายฉบับ จาก สเปรดชีต Excel .

ดาวน์โหลดแบบฝึกหัดต่อไปนี้เพื่อฝึกฝนด้วยตัวเอง

2 วิธีง่ายๆ ในการส่งอีเมลหลายฉบับจากสเปรดชีต Excel

เราจะใช้ชุดข้อมูลตัวอย่างเป็นตัวอย่าง ตัวอย่างเช่น ชุดข้อมูลต่อไปนี้แสดงถึง พนักงานขาย และ อีเมล . ของพวกเขา ที่อยู่ ที่นี่ เราจะส่งอีเมลถึงทุกคนโดยใช้ที่อยู่จาก สเปรดชีต Excel นี้ .

1. ส่งอีเมลหลายฉบับจากสเปรดชีต Excel ด้วย Mail Merge ใน Word

ในวิธีแรก เราจะใช้ MS Word และ คุณลักษณะ Mail Merge ใน Word เพื่อ ส่งอีเมลหลายฉบับ จาก สเปรดชีต Excel . ดังนั้น ให้ทำตามขั้นตอนด้านล่างเพื่อทำงาน

ขั้นตอน:

• ขั้นแรก เปิดช่องว่าง Word  ไฟล์.
• จากนั้น พิมพ์ข้อความที่คุณต้องการ
• หลังจากนั้น ไปที่ การส่งจดหมาย ➤ เลือกผู้รับ ➤ ใช้รายการที่มีอยู่ .

• ด้วยเหตุนี้ เลือกแหล่งข้อมูล กล่องโต้ตอบจะปรากฏขึ้น
• จากนั้น เลือก Excel ไฟล์ที่ อีเมล ที่อยู่จะถูกเก็บไว้
• กด เปิด .

• ดังนั้น เลือกตาราง กล่องโต้ตอบจะปรากฏขึ้น
• ที่นั่น เลือกแผ่นงานที่คุณต้องการแล้วกด ตกลง .

• ตอนนี้ เลือกคำที่คุณต้องการแทนที่สำหรับอีเมลแต่ละฉบับ ในตัวอย่างนี้ เลือก Wilham .
• ถัดไป ภายใต้ การส่งจดหมาย แท็บ เลือก พนักงานขาย จาก แทรกฟิลด์ผสาน เมนูแบบเลื่อนลง

• ดังนั้น มันจะส่งคืนข้อความเหมือนที่แสดงด้านล่าง

• นอกจากนี้ ถ้าคุณต้องการดูตัวอย่างจดหมายของคุณจากมุมมองของผู้รับ ให้คลิก ดูตัวอย่างผลลัพธ์ .

• ภายใต้ เสร็จสิ้นและผสาน แบบเลื่อนลง เลือก ส่งข้อความอีเมล .

• ตามนั้น ผสานเข้ากับอีเมล กล่องโต้ตอบจะปรากฏขึ้น
• เลือกส่วนหัว อีเมล ใน ถึง และพิมพ์ หัวเรื่อง (สวัสดี ) ตามต้องการ
• สุดท้าย กด ตกลง และจะส่งอีเมลไปยังผู้รับทั้งหมด

อ่านเพิ่มเติม: วิธีส่งสเปรดชีต Excel ที่แก้ไขได้ทางอีเมล (วิธีด่วน 3 วิธี)

การอ่านที่คล้ายกัน

• วิธีการส่งอีเมลโดยอัตโนมัติจาก Excel ตามวันที่
• ส่งอีเมลจาก Excel พร้อมเนื้อความโดยใช้มาโคร (ด้วยขั้นตอนง่ายๆ)
• วิธีการส่งไฟล์ Excel ไปยังอีเมลโดยอัตโนมัติ (วิธีที่เหมาะสม 3 วิธี)
• วิธีการส่งอีเมลหากตรงตามเงื่อนไขใน Excel (วิธีง่ายๆ 3 วิธี)
• ส่งอีเมลจาก Excel โดยอัตโนมัติตามเนื้อหาของเซลล์ (2 วิธี)

2. ใช้ Excel VBA สำหรับการส่งอีเมลหลายฉบับจากสเปรดชีต

อย่างไรก็ตาม คุณสามารถหลีกเลี่ยงความยุ่งยากได้หากคุณใช้ VBA รหัสเพื่อดำเนินการ ในวิธีนี้ เราจะแสดง 3 ตัวอย่างต่างๆ ของ การส่งอีเมลหลายฉบับ จาก สเปรดชีต ผ่าน Excel VBA .

2.1 อีเมลจำนวนมากไปยังรายการ

ในตัวอย่างนี้ คุณจะเห็นวิธีส่งข้อความทั่วไปถึงทุกคน ดังนั้น เรียนรู้ขั้นตอนต่อไปนี้

ขั้นตอน:

• ขั้นแรก เลือก นักพัฒนา ➤ Visual Basic .

• ส่งผลให้ VBA หน้าต่างจะเด้งออกมา
• ตอนนี้ คลิก แทรก ➤ โมดูล .
• ถัดไป ให้คัดลอกโค้ดต่อไปนี้แล้ววางลงใน โมดูล  หน้าต่าง

Sub massEmails()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Company Rules." & vbNewLine & "Regards."
Email.Display
End Sub

• บันทึกไฟล์แล้วกด F5 เพื่อรันโค้ด
• ดังนั้น Outlook หน้าต่างจะปรากฏขึ้นและคุณจะเห็นผู้รับทั้งหมดในส่วน ถึง  ฟิลด์.
• สุดท้าย กด ส่ง .

2.2 อีเมลพร้อมไฟล์แนบหลายไฟล์

นอกจากนี้ หากคุณมีไฟล์ที่จะแนบมากกว่าหนึ่งไฟล์ และต้องส่งไปยังที่อยู่อีเมลหลายรายการ ให้ทำตามขั้นตอนด้านล่าง

ขั้นตอน:

• คลิกที่ นักพัฒนา ในตอนแรก
• จากนั้น เลือก Visual Basic .
• หลังจากนั้น ใน VBA หน้าต่าง เลือก โมดูล ภายใต้ แทรก .
• ใน โมดูล ให้คัดลอกและวางโค้ดด้านล่าง

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "D:\SOFTEKO\how to send multiple emails from excel spreadsheet\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• บันทึกและเรียกใช้โค้ดโดยกด F5 .
• ส่งผลให้ Outlook หน้าต่างจะปรากฏขึ้นและคุณจะเห็นไฟล์แนบที่ต้องการ

2.3 อีเมลตามค่าของเซลล์

เราจะแสดงตัวอย่างอื่นที่ Excel file จะส่งอีเมลไปยังที่อยู่หลายแห่งโดยอัตโนมัติเมื่อค่าของเซลล์บางอย่างแตกต่างจากความต้องการของเรา ในชุดข้อมูลต่อไปนี้ เรามี 50 ในเซลล์ B5 . รหัสของเราจะส่งอีเมลหากต่ำกว่า 100 . ตอนนี้ ให้เรียนรู้ขั้นตอนต่อไปนี้เพื่อทำงาน

ขั้นตอน:

• ก่อนอื่น เลือกแผ่นงานและคลิกขวาบนเมาส์
• จากนั้น เลือก ดูโค้ด .

• ในกล่องโต้ตอบที่ปรากฏขึ้น ให้คัดลอกและวางโค้ดด้านล่าง

Dim rn As Range
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set rn = Intersect(Range("B5"), Target)
    If rn Is Not hing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value < 100 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub MailCellvalues()
Dim appOutlook As Object
Dim Email As Object
Dim mailbody, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 3) & ";"
Next i
ThisWorkbook.Save
Email.To = mailto
Email.Subject = "Important Notice"
Email.Body = "Greetings Everyone," & vbNewLine & "Please raise B5 above 100." & vbNewLine & "Regards."
Email.Display
End Sub

• หลังจากนั้น บันทึกไฟล์แล้วกด F5 เพื่อเรียกใช้
• ดังนั้น คุณจะเห็นผลลัพธ์ใน Outlook  หน้าต่าง

อ่านเพิ่มเติม:วิธีส่งอีเมลจากรายการ Excel (2 วิธีที่มีประสิทธิภาพ)

บทสรุป

ต่อจากนี้ไปคุณจะสามารถ ส่งอีเมลหลายฉบับ จาก สเปรดชีต Excel ตามวิธีการที่อธิบายไว้ข้างต้น ใช้ต่อไปและแจ้งให้เราทราบหากคุณมีวิธีอื่นๆ ในการทำงาน ติดตาม ExcelDemy เว็บไซต์สำหรับบทความเพิ่มเติมเช่นนี้ อย่าลืมแสดงความคิดเห็น ข้อเสนอแนะ หรือข้อสงสัยหากมีในส่วนความคิดเห็นด้านล่าง

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

• ส่งอีเมลเตือนความจำโดยอัตโนมัติจากแผ่นงาน Excel โดยใช้ VBA
• วิธีการส่งอีเมลโดยอัตโนมัติเมื่อตรงตามเงื่อนไขใน Excel
• [แก้ไขแล้ว]:แชร์เวิร์กบุ๊กไม่แสดงใน Excel (ด้วยขั้นตอนง่ายๆ)
• มาโครเพื่อส่งอีเมลจาก Excel (5 ตัวอย่างที่เหมาะสม)
• มาโครเพื่อส่งอีเมลจาก Excel พร้อมเนื้อหา (3 กรณีที่เป็นประโยชน์)
• มาโคร Excel:ส่งอีเมลไปยังที่อยู่ในเซลล์ (2 วิธีง่ายๆ)