Cách tự động di chuyển tất cả người nhận ngoại trừ người gửi ban đầu sang trường “CC” khi sử dụng “Trả lời tất cả” trong Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Một số người dùng luôn di chuyển tất cả người nhận ngoại trừ người gửi ban đầu sang trường “CC” khi sử dụng “Trả lời tất cả” trong Outlook. Bài viết này sẽ giới thiệu một phương pháp tự động hóa chuyển động với Outlook VBA.

Theo mặc định, khi bạn chọn “Trả lời tất cả” để trả lời email, tất cả những người nhận ban đầu ở trường “Tới” sẽ vẫn được đặt trong trường “Tới” trong thư trả lời. Tuy nhiên, nhiều người dùng muốn chuyển tất cả người nhận sang trường “CC” và chỉ có người gửi ban đầu trong trường “Tới”. Để đáp ứng yêu cầu này, ở đây chúng tôi sẽ đưa ra một đoạn mã VBA có thể tự động nhận ra nó.

Tự động di chuyển tất cả người nhận ngoại trừ người gửi ban đầu sang trường “CC” trong “Trả lời tất cả”

Trước tiên, hãy khởi chạy chương trình Outlook của bạn.
Sau đó, trong cửa sổ Outlook chính, nhấn các nút phím “Alt + F11”.
Tiếp theo bạn sẽ vào trình soạn thảo Outlook VBA.
Sau đó, bạn phải tìm và mở dự án “ThisOutlookSession”.
Sau này bạn cần sao chép và dán các mã VBA sau vào cửa sổ dự án này.

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

Sau đó, bạn nên ký macro này rồi thay đổi cài đặt macro Outlook của mình để cho phép macro được ký điện tử.
Cuối cùng, bạn có thể khởi động lại Outlook để kích hoạt dự án VBA mới.
Từ giờ trở đi, mỗi khi bạn trả lời email bằng cách sử dụng “Trả lời tất cả”, bạn sẽ thấy rằng tất cả người nhận đã được chuyển đến trường “CC” chỉ có người gửi ban đầu trong trường “Tới”.

Đừng hoảng sợ trong trường hợp tham nhũng PST

Nếu tệp PST của bạn chứa nhiều dữ liệu có giá trị, chẳng hạn như thông tin khách hàng, v.v., khi tệp PST của bạn bị hỏng, bạn phải lo lắng. Tuy nhiên, nếu gần đây bạn đã sao lưu tệp của mình, bạn sẽ không bao giờ lo lắng. Các bản sao lưu sẽ cho phép bạn lấy lại Outlook bị hỏng dữ liệu một cách dễ dàng. Nhưng nếu không có bản sao lưu như vậy, bạn vẫn có thể sử dụng một công cụ khôi phục mạnh mẽ, chẳng hạn như DataNumen Outlook Repair.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm