วิธีแบทช์ตอบกลับอีเมลหลายฉบับที่มีเนื้อหาเดียวกันใน Outlook ของคุณ

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

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

ชุดตอบอีเมลหลายฉบับที่มีเนื้อหาเดียวกัน

1. อันดับแรก ให้เปิดโปรแกรม Outlook ของคุณ
2. จากนั้น คุณต้องสร้างเทมเพลตการตอบกลับที่คุณต้องการใช้สำหรับการตอบกลับอีเมลหลายฉบับ

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

3. ถัดไป คุณสามารถปิดอีเมลโดยไม่บันทึกการเปลี่ยนแปลง
4. จากนั้นคุณควรกดปุ่ม "Alt + F11"
5. หลังจากนั้นหน้าต่างตัวแก้ไข Outlook VBA จะปรากฏขึ้น
6. ตอนนี้ คุณควรค้นหาและเปิดโครงการ "ThisOutlookSession" และคัดลอกโค้ด VBA ต่อไปนี้ลงไป

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

7. สุดท้าย คุณสามารถปิดหน้าต่างปัจจุบันและลองใช้มาโครนี้

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

Outlook มีแนวโน้มที่จะทุจริต

ในฐานะผู้ใช้ Outlook ทั่วไป ฉันได้รับข้อผิดพลาดมากมาย ดังนั้น ฉันได้ดำเนินมาตรการต่าง ๆ เพื่อปกป้องข้อมูล Outlook ของฉัน อย่างไรก็ตาม เนื่องจาก Outlook นั้นไวต่อความเสียหายและความผิดพลาดที่คาดเดาได้ยาก ฉันจึงต้องเตรียมพร้อมตลอดเวลา ตัวอย่างเช่น เพื่อกู้คืนข้อมูลของฉันโดยเร็วที่สุด ฉันได้เก็บเครื่องมือการกู้คืนที่โดดเด่นไว้ใกล้มือ – DataNumen Outlook Repair. มันสามารถที่จะ แก้ไข Outlook ไฟล์โดยไม่ต้องยุ่งยากใดๆ

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

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