Cách tự động di chuyển email với các danh mục màu khác nhau sang các thư mục khác nhau trong Outlook

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

Nếu bạn muốn Outlook tự động di chuyển email đến các thư mục khác nhau khi bạn gán các danh mục màu khác nhau cho chúng, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.

Nhiều người dùng mong muốn các phương pháp tự động di chuyển email đến một thư mục cụ thể khi một danh mục màu nhất định được gán cho nó. Không nghi ngờ gì nữa, Outlook không cung cấp một tính năng trực tiếp như vậy để nhận ra nó. Do đó, trong phần sau, chúng tôi sẽ hướng dẫn bạn cách để có được nó. Bây giờ, hãy đọc tiếp để biết các bước chi tiết.

Tự động di chuyển email với các danh mục màu khác nhau sang các thư mục khác nhau

Trước tiên, hãy mở chương trình Outlook của bạn.
Sau đó, trong Outlook, nhấn các nút phím “Alt + F11” để truy cập trình chỉnh sửa VBA.
Sau đó, đặt mã VBA sau vào dự án “ThisOutlookSession”.

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Ghi chú:

Để xử lý các mục trong các thư mục khác, bạn có thể thay đổi đối tượng “objInboxFolder”, chẳng hạn như “Application.Session.GetDefaultFolder(olFolderSentMail)” cho thư mục “Các mục đã gửi”.
Ngoài ra, hãy thay đổi các danh mục màu sắc và thư mục đích được xác định trước trong đoạn mã trên cho phù hợp với trường hợp thực tế của bạn.
Ngoài ra, bạn có thể sử dụng “ElseIf” để thêm các danh mục màu tùy chọn khác.

Sau đó, di chuyển con trỏ vào chương trình con “Application_Startup” và nhấn phím “F5” để kích hoạt macro này.
Cuối cùng, bạn có thể chụp. Đây là ví dụ của tôi.

Chọn một email trong thư mục Hộp thư đến.
Sau đó, chỉ định danh mục màu “Riêng tư” cho nó.
Ngay lập tức, thư này sẽ được chuyển đến thư mục “Riêng tư” trong “Hộp thư đến”.

Xử lý Outlook của bạn một cách cẩn thận

Có thể bạn đã gặp một số sự cố trong Outlook của mình. Thường xuyên hơn không, chúng thực sự xảy ra do cách xử lý không đúng cách của bạn. Chẳng hạn, bạn luôn đóng Outlook không đúng cách, chẳng hạn như tắt nguồn đột ngột. Hoặc bạn chưa sao lưu dữ liệu Outlook của mình theo định kỳ. Tất cả các hành động tương tự có thể làm cho Outlook của bạn dễ bị tổn thương hơn nhiều. Như bạn đã biết, một khi tệp PST bị hỏng, việc sửa chữa nó là vô cùng khó khăn. Nói chung, các công cụ sửa chữa hộp thư đến sẽ không tạo hiệu ứng. Bạn không có lựa chọn nào khác ngoài việc sử dụng các tiện ích hàng đầu bên ngoài, 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 phục hồi 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