Cách thay thế danh mục màu của mục Outlook bằng VBA

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

Nếu bạn muốn thay thế thể loại màu của một mục Outlook, bạn sẽ cần xóa mục gốc khi một thể loại mới được chỉ định. Vì vậy, trong bài viết này, chúng tôi sẽ hướng dẫn bạn cách tự động hóa việc này thông qua VBA.

Lý do chính khiến chúng tôi sử dụng các danh mục màu trong Outlook là để phân loại và quản lý các mục Outlook của bạn tốt hơn. Ngoài ra, Outlook cho phép chúng tôi chỉ định một hoặc nhiều danh mục màu cho một mục. Tuy nhiên, quá nhiều danh mục được gán cho một mục đôi khi có thể làm lộn xộn các quy tắc phân loại của bạn. Do đó, nhiều người dùng muốn thay thế danh mục màu thay vì danh mục chồng lấp. Ở đây chúng tôi sẽ tiết lộ một cách hiệu quả cho bạn.

Thay thế Danh mục Màu của Mục Outlook

Ngay từ đầu, hãy khởi chạy ứng dụng Outlook của bạn.
Sau đó chuyển sang tab “Nhà phát triển” và nhấp vào nút “Visual Basic” hoặc nhấn phím tắt “Alt + F11”.
Tiếp theo, bạn sẽ vào cửa sổ “Microsoft Visual Basic for Applications”.
Tại thời điểm này, bạn nên nhấp đúp vào dự án “ThisOutlookSession” ở phía bên trái để mở nó.
Sau đó, sao chép 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
'Take Mailitem as an example
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
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

Sau đó, bạn nên gán chứng chỉ kỹ thuật số cho macro mới này.
Sau đó, bạn cần kiểm tra cài đặt macro Outlook của mình để đảm bảo các macro đã ký được bật.
Cuối cùng, bạn cần khởi động lại Outlook để kích hoạt dự án VBA mới.
Từ giờ trở đi, mỗi khi bạn chỉ định danh mục mới cho một mục, danh mục trước đó sẽ tự động bị xóa.

Xử lý các vấn đề quan trọng về Outlook

Vì Outlook dễ bị lỗi và bị hỏng, bạn sẽ gặp phải nhiều vấn đề khác nhau trong Outlook của mình. Vì vậy, bạn nên thực hiện đủ đề phòng. Chẳng hạn, bạn nên tạo bản sao lưu thường xuyên cho tệp PST của mình. Hơn nữa, bạn nên nắm giữ một quyền lực PST sửa chữa công cụ, 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 lấy lại Sql Server 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