Cách tự động di chuyển email với người nhận CC cụ thể trong Outlook

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

Trên thực tế, hầu hết các bạn có thể mong muốn tạo một quy tắc trong Outlook để tự động chuyển tiếp email với những người nhận CC cụ thể. Nhưng quy tắc trong Outlook không hỗ trợ kiểm tra người nhận CC. Vì vậy, bài viết này sẽ hướng dẫn bạn cách thực hiện điều đó bằng Outlook VBA.

Rõ ràng, bạn không thể tạo quy tắc Outlook để tìm kiếm những người nhận CC cụ thể. Như trong ảnh chụp màn hình sau đây, đối với các email đã nhận, bạn chỉ có thể kiểm tra xem tên của mình có trong hộp CC hay không. Tương tự, đối với các email đã gửi, thậm chí không có điều kiện quy tắc nào để kiểm tra hộp CC.

Do đó, nếu bạn muốn định cấu hình Outlook để tự động di chuyển email với người nhận CC cụ thể, bạn phải tìm kiếm các phương tiện khác. Sau đó. ở đây chúng tôi sẽ hướng dẫn bạn cách đạt được điều đó bằng Outlook VBA.

Tự động di chuyển email đã gửi với người nhận CC cụ thể

Đầu tiên, chuyển sang tab “Nhà phát triển” và nhấp vào nút “Visual Basic”.
Sau đó mở dự án “ThisOutlookSession” và sao chép các mã VBA sau vào đó.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

Sau đó, bạn tiến hành ký mã này và thay đổi cài đặt macro như bình thường.
Cuối cùng, bạn có thể thoát khỏi cửa sổ “Visual Basic”. Sau đó, các email có người nhận CC cụ thể sẽ được chuyển đến thư mục thư được chỉ định.

Tự động di chuyển các email đã nhận với người nhận CC cụ thể

Bây giờ, mã VBA ở trên nhằm mục đích di chuyển các email đã gửi với những người nhận CC cụ thể, Nếu bạn muốn tìm kiếm những người nhận CC cụ thể trong các email đã nhận và sau đó di chuyển nó, thay vào đó, bạn nên sử dụng các mã sau.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

Luôn chuẩn bị tốt cho Outlook tham nhũng

Mặc dù Outlook có nhiều tính năng nhưng nó vẫn không thể tránh khỏi tham nhũng. Vì vậy, bạn nên giữ cảnh giác chống lại tất cả các rủi ro tiềm năng. Không còn nghi ngờ gì nữa, bước quan trọng phải là tạo bản sao lưu nhất quán và cập nhật cho dữ liệu Outlook. Hơn nữa, bạn nên giữ một công cụ khôi phục Outlook bị hỏng trong vùng lân cận. Nó sẽ có ích nếu cả bản sao lưu và Scanpst.exe đều bị lỗi.

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 SQL Server lỗi tập tin mdf 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