วิธีแบทช์ส่งอีเมลฉบับร่างหลายฉบับด้วย Outlook VBA

โซลูชัน Outlook September 29, 2025

ด้วยเหตุผลบางประการ คุณอาจบันทึกอีเมลฉบับร่างจำนวนมากใน Outlook ของคุณ บทความนี้จะสอนวิธีส่งเป็นชุดทั้งหมดหรือเลือกเพียงคลิกเดียว ซึ่งสร้างด้วย Outlook VBA

บางครั้งคุณอาจไม่ต้องการส่งอีเมลออกตอนนี้ ดังนั้น คุณจะบันทึกไว้ในโฟลเดอร์จดหมายฉบับร่างและตั้งใจที่จะส่งออกในภายหลัง ตามปกติ เมื่อคุณต้องการส่งฉบับร่าง คุณต้องเปิดทีละฉบับแล้วกดปุ่ม “ส่ง” ทีละฉบับ หากมีแบบร่างจำนวนมากที่จะส่ง จะใช้เวลาค่อนข้างมาก ดังนั้น ผู้ใช้หลายคนจึงหวังว่า Outlook จะอนุญาตให้ส่งแบบร่างทั้งหมดได้เพียงแค่คลิกปุ่มเดียว อย่างไรก็ตาม ตามค่าเริ่มต้นแล้ว จะไม่มีปุ่มดังกล่าว แต่คุณสามารถใช้ Outlook VBA เพื่อสร้างได้ นี่คือขั้นตอนที่ซับซ้อนและรหัส VBA

ชุดส่งอีเมลฉบับร่างทั้งหมด

เริ่มแรก เปิดโปรแกรม Outlook แล้วกดทางลัด “Alt + F11”
จากนั้นคุณจะเปิดหน้าต่างแก้ไข VBA ซึ่งคุณควรเปิดโมดูลใหม่
จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในนั้น

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

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

ประการแรก ไปที่แท็บ “ไฟล์” > “ตัวเลือก” > “แถบเครื่องมือด่วน”
จากนั้นทำตามขั้นตอนที่แสดงในภาพด้านล่างเพื่อเพิ่มแมโครใหม่ไปยัง Quick Access Toolbar

ในที่สุดคุณสามารถกลับไปที่หน้าต่างหลักของ Outlook คุณจะเห็นปุ่มใหม่ใน Quick Access Toolbar

หากไม่มีรายการในโฟลเดอร์แบบร่าง เมื่อคุณคลิกปุ่ม คุณจะได้รับข้อความดังภาพหน้าจอต่อไปนี้
แต่ถ้ามีรายการในโฟลเดอร์แบบร่าง คุณจะได้รับข้อความแจ้ง ดังภาพด้านล่าง ทันทีที่คุณเลือก “ใช่” Outlook จะเริ่มส่งแบบร่างทั้งหมด

ชุดส่งอีเมลฉบับร่างที่เลือก

หากคุณหวังว่าจะส่งแบบร่างที่เลือกเท่านั้น โค้ดข้างต้นจะไม่เหมาะสม คุณสามารถใช้รหัสต่อไปนี้แทน

ประการแรก คัดลอกลงในโมดูลใหม่

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

จากนั้นเพิ่มแมโครใหม่ลงใน Quick Access Toolbar ตามปกติ
จากนั้นคุณสามารถเลือก tarรับอีเมลฉบับร่างและกดปุ่ม คุณจะได้รับพร้อมท์ดังภาพ:
สุดท้าย ตราบใดที่คุณคลิก “ใช่” อีเมลฉบับร่างที่เลือกจะถูกส่งออกไป

กำจัดปัญหา Outlook ที่น่ารำคาญ

บางทีคุณอาจพบปัญหา Outlook มากมายที่ก่อกวน คุณจะกำจัดพวกมันได้อย่างไร? ตามปกติ คุณสามารถลองใช้เครื่องมือซ่อมแซมในตัว Scanpst.exe สามารถแก้ไขปัญหาไฟล์ Outlook PST ขนาดเล็กได้ แต่ถ้าโชคร้ายเจอปัญหาหนักๆ เช่น ความเสียหายของอีเมล PSTเครื่องมือกล่องจดหมายจะไม่สร้างเอฟเฟกต์ เมื่อถึงจุดนั้น คุณไม่มีทางเลือกอื่นนอกจากใช้เครื่องมือที่โดดเด่นกว่า เช่น DataNumen Outlook Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมข้อผิดพลาด mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.