วิธีย้ายผู้รับทั้งหมดโดยอัตโนมัติยกเว้นผู้ส่งต้นฉบับไปยังช่อง "CC" เมื่อใช้ "ตอบกลับทั้งหมด" ใน Outlook

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

ผู้ใช้บางรายมักจะย้ายผู้รับทั้งหมดยกเว้นผู้ส่งเดิมไปที่ช่อง "CC" เมื่อใช้ "ตอบกลับทั้งหมด" ใน Outlook บทความนี้จะแนะนำวิธีการทำให้การเคลื่อนไหวอัตโนมัติด้วย Outlook VBA

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

ย้ายผู้รับทั้งหมดโดยอัตโนมัติยกเว้นผู้ส่งต้นฉบับไปที่ช่อง "CC" ใน "ตอบกลับทั้งหมด"

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

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

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

อย่าตื่นตระหนกในกรณีของการทุจริต PST

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

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

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