Как групово да изчистите всички цветни категории във всички елементи на Outlook

За някои цели искате да започнете да използвате цветови категории от нулата в Outlook. Следователно, бихте искали да изчистите всички цветови категории във всички елементи на Outlook. В тази статия ще ви представим ефикасен начин да го получите.

Например, за да възстановите цветовите категории, изтривате всички съществуващи цветови категории във вашия Outlook. Но след изтриване може да откриете, че тези категории все още са прикрепени към елементите на Outlook. Единствената промяна е, че категориите губят оригиналните си цветове, показвайки се в бяло. При това обстоятелство може да се надявате да изчистите всички цветови категории във всички елементи.

За да направите това за всички елементи в една папка, можете просто да натиснете „Ctrl + A“, за да изберете всички елементи, щракнете с десния бутон и изберете „Категоризиране“ и „Изчистване на всички категории“ от контекстното меню. Но по този начин трябва да обработите всяка папка една по една. Това е твърде досадно. И така, в следващите стъпки ще ви научим на много по-удобен метод.

Партидно изчистване на всички цветни категории във всички елементи на Outlook

1. За начало стартирайте приложението Outlook.
2. След това натиснете клавишните комбинации „Alt + F11“, за да задействате редактора на VBA.
3. При показването на нов прозорец копирайте и поставете следния VBA код в празен модул или проект.

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. След това поставете курсора в първата подпрограма и след това натиснете бутона „F5“, за да задействате макро.
5. Когато получите подкана „Завършено“, това означава, че всички категории цветове са изчистени от всички елементи на Outlook.
6. Понастоящем, без значение имейли, срещи, задачи, контакти или бележки във вашия Outlook, всички те не трябва да имат абсолютно определени цветови категории.

Решаване на сериозни проблеми с Outlook

Може би сте знаели, че Outlook се инсталира предварително с вграден инструмент за ремонт - Scanpst.exe. Пробвали ли сте някога преди? За да бъда честен, той е достатъчно мощен, за да се справи с малки проблеми, свързани с вашия Outlook PST файл. Ако обаче проблемът е значително тежък, например лош повреден Outlook файл, вътрешната помощна програма няма да направи ефекти. В тази ситуация трябва да се върнете на външен инструмент с връх, като например DataNumen Outlook Repair, който се е нахвърлил над своите конкуренти поради високото си възстановяване на PST.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server фиксира и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com