Cách xóa hàng loạt tất cả các danh mục màu trong tất cả các mục Outlook

Vì một số lý do, bạn muốn bắt đầu sử dụng các danh mục màu sắc từ đầu trong Outlook. Do đó, bạn muốn xóa tất cả các danh mục màu sắc trong tất cả các mục Outlook. Trong bài viết này, chúng tôi sẽ giới thiệu một phương pháp hiệu quả để thực hiện điều đó.

Ví dụ: để xây dựng lại các danh mục màu, bạn xóa tất cả các danh mục màu hiện có trong Outlook của mình. Tuy nhiên, sau khi xóa, bạn có thể thấy rằng các danh mục này vẫn được đính kèm vào các mục Outlook. Thay đổi duy nhất là các danh mục mất đi màu sắc ban đầu, hiển thị màu trắng. Trong trường hợp này, bạn có thể hy vọng xóa tất cả các loại màu trong tất cả các mục.

Để thực hiện việc này cho tất cả các mục trong một thư mục, bạn chỉ cần nhấn “Ctrl + A” để chọn tất cả các mục, nhấp chuột phải và chọn “Phân loại” và “Xóa tất cả danh mục” từ menu ngữ cảnh. Tuy nhiên, theo cách này, bạn phải xử lý từng thư mục một. Nó quá tẻ nhạt. Vì vậy, sau đây chúng tôi sẽ hướng dẫn bạn một phương pháp thuận tiện hơn nhiều.

Xóa hàng loạt tất cả danh mục màu trong tất cả các mục Outlook

1. Trước tiên, hãy mở ứng dụng Outlook.
2. Sau đó, nhấn phím tắt “Alt + F11” để kích hoạt trình soạn thảo VBA.
3. Trong cửa sổ mới hiển thị, sao chép và dán mã VBA sau vào một mô-đun hoặc dự án trống.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Sau đó, đặt con trỏ vào chương trình con đầu tiên rồi nhấn nút phím “F5” để kích hoạt macro.
5. Khi bạn nhận được lời nhắc “Đã hoàn thành”, điều đó có nghĩa là tất cả các danh mục màu đã bị xóa khỏi tất cả các mục Outlook.
6. Hiện tại, bất kể email, cuộc hẹn, nhiệm vụ, danh bạ hay ghi chú trong Outlook của bạn, tất cả chúng đều không được chỉ định danh mục màu nào.

Giải quyết các vấn đề nghiêm trọng về Outlook

Có thể bạn đã biết rằng Outlook được cài đặt sẵn công cụ sửa chữa tích hợp – Scanpst.exe. Bạn đã bao giờ thử nó trước đây chưa? Thành thật mà nói, nó đủ mạnh để giải quyết những rắc rối nhỏ liên quan đến tệp Outlook PST của bạn. Tuy nhiên, nếu sự cố nghiêm trọng đáng kể, chẳng hạn như lỗi nghiêm trọng Outlook bị hỏng tập tin, tiện ích nội bộ sẽ không có tác dụng. Trong tình huống này, bạn phải sử dụng lại một công cụ bên ngoài hàng đầu, chẳng hạn như DataNumen Outlook Repair, đã vượt qua các đối thủ nhờ khả năng phục hồi PST cao.

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 SQL Server sửa chữa 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