วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

คุณต้องส่งอีเมลจำนวนมากที่เป็นส่วนตัวถึงลูกค้า ลูกค้า เพื่อน หรือผู้ติดต่ออื่น ๆ หรือไม่? คุณต้องการทำเช่นนั้นด้วยการคลิกเพียงครั้งเดียวหรือไม่? เป็นไปได้! มีเครื่องมือมหัศจรรย์ในMicrosoft Excelที่ทำทั้งหมดเหล่านี้ เป็น Visual Basic สำหรับแอปพลิเคชันหรือที่รู้จักในชื่อ Excel VBA

อ่านต่อเพื่อทราบวิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้Excel VBA ยังมีอีก! คุณสามารถฝึกฝนได้โดยทำตามขั้นตอนง่าย ๆ ที่กล่าวถึงในบทช่วยสอนด้านล่าง มาขุดกันเถอะ!

วิธีส่งอีเมลจำนวนมากจาก Outlook โดยใช้ Excel VBA

บทช่วยสอนปัจจุบันจะให้รหัส VBA แก่คุณเพื่อให้การส่งอีเมลจำนวนมากโดยอัตโนมัติจาก Excel สิ่งที่คุณต้องทำคือรวบรวมข้อมูลของคุณในไฟล์ Excel ไฟล์เดียวและดำเนินการจัดรูปแบบอย่างรวดเร็ว

โปรแกรม VBA ที่คุณจะเรียกใช้จะใช้Microsoft Outlookเป็นแอปส่งอีเมล ดังนั้น คุณต้องติดตั้งและกำหนดค่า Outlook บนคอมพิวเตอร์ของคุณ โค้ด VBA จะไม่สามารถใช้โปรแกรม Outlook บนเว็บเบราว์เซอร์ได้

เมื่อคุณพร้อมใช้ไฟล์ Excel และแอป Outlook แล้ว ให้ทำตามขั้นตอนเหล่านี้:

• จัดระเบียบแผ่นงานอีเมลจำนวนมากเป็น 6 คอลัมน์
• พิมพ์ส่วนหัวของคอลัมน์ในแถว A1: Email To (A); อีเมล CC (B); หัวเรื่องอีเมล (C); เนื้อหาอีเมล (D), ไฟล์แนบ (E), สถานะ (F)
• เพิ่ม "ถึงที่อยู่" ทั้งหมดภายใต้หัวข้อคอลัมน์A คุณสามารถเพิ่มอีเมลได้หลายพันฉบับหากต้องการ
• ในทำนองเดียวกัน พิมพ์ "ที่อยู่ CC" ใต้ส่วนหัวของ คอลัมน์ B
• ได้เวลาปรับแต่งบรรทัดหัวเรื่องอีเมลในแบบของคุณแล้ว คุณสามารถเพิ่มหัวเรื่องอีเมลที่กำหนดเองสำหรับผู้ติดต่อแต่ละคนภายใต้หัวข้อ คอลัมน์ C
• เช่นเดียวกับเนื้อหาเนื้อหาอีเมล คัดลอกและวางเนื้อหาอีเมลในแถวใต้ส่วนหัว ของคอลัมน์ D
• คัดลอกและวางตำแหน่งไฟล์แนบด้านล่างส่วนหัว ของคอลัมน์ E
• ในการรับตำแหน่งไฟล์แนบ ให้กดShiftแล้วเลือกไฟล์เป้าหมายบนคอมพิวเตอร์ของคุณ
• ตอนนี้คลิกขวาและเลือกคัดลอกเป็นเส้นทางเพื่อคัดลอกที่อยู่ไฟล์ในคลิปบอร์ดของพีซี
• ตอนนี้คุณสามารถวางที่อยู่ลงในแถวของคอลัมน์ E ได้โดยตรง
• ปล่อย คอลัมน์ Fว่างไว้เนื่องจากรหัส VBA จะเติมสถานะโดยอัตโนมัติ

• บันทึกแผ่นงาน Excel เป็นไฟล์ที่เปิดใช้งานมาโคร
• ตอนนี้ กดAlt+F11เพื่อเรียกโปรแกรมแก้ไขโค้ด VBA ขึ้นมา
• คลิกที่เครื่องมือในเมนูด้านบน จากนั้นเลือกการอ้างอิง
• ค้นหาMicrosoft Office 16.0 Object Libraryในรายการที่ตามมา และทำเครื่องหมายในช่อง
• คลิกตกลงเพื่อบันทึก Outlook เป็นวัตถุสำหรับ VBA

• ตอนนี้คลิกแทรกแล้วเลือกโมดูลเพื่อเปิดตัวแก้ไขโค้ด
• คัดลอกและ วางรหัสที่กล่าวถึงด้านล่างในโมดูล

Sub Send_Bulk_Mails() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Worksheet_Name") Dim i As Integer Dim OA As Object Dim msg As Object Set OA = CreateObject("outlook.application") Dim last_row As Integer last_row = Application. CountA(sh.Range("A:A")) For i = 2 To last_row Set msg = OA.createitem(0) msg.to = sh.Range("A" & i).Value msg.cc = sh. Range("B" & i).Value msg.Subject = sh.Range("C" & i).Value msg.body = sh.Range("D" & i).Value If sh.Range("E" & i).Value <> "" จากนั้น msg.attachments.Add sh.Range("E" & i).Value End ถ้า msg.send sh.Range("F" & i).Value = "Sent" Next i MsgBox "ส่งอีเมลทั้งหมดแล้ว" End Sub

• ป้อนชื่อเวิร์กชีตปัจจุบันโดยคั่นด้วยขีดล่างในโค้ดบรรทัดที่ 3 ซึ่งมีข้อความว่า (“ Worksheet_Name “)
• คลิกบันทึกจากเมนูเพื่อบันทึกสคริปต์
• คุณสามารถกดF5เพื่อเรียกใช้แมโครและ Excel จะส่งอีเมลผ่าน Outlook โดยอัตโนมัติ

• คุณยังสามารถเข้าถึงแมโครนี้ได้ในภายหลังจาก แท็บ นักพัฒนาของเมนู Ribbon ของ Excel

บทสรุป

ตอนนี้คุณได้ติดตามวิธีการส่งอีเมลจำนวนมากจาก Outlook โดยใช้บทช่วยสอน Excel VBA แล้ว คุณสามารถส่งอีเมลจำนวนมากได้อย่างง่ายดายโดยไม่ต้องเสียเวลากับการส่งอีเมลด้วยตนเอง

ต้องการเรียนรู้เคล็ดลับ VBA อื่นสำหรับ Excel หรือไม่ อ่านบทช่วยสอนนี้เพื่อเรียนรู้วิธีตรวจสอบการสะกดอัตโนมัติใน Excelโดยใช้ VBA