Как выполнить пакетную очистку всех цветовых категорий во всех элементах Outlook

Для некоторых целей вы хотитеtar• использовать цветовые категории с нуля в Outlook. Поэтому вы хотите очистить все цветовые категории во всех элементах Outlook. В этой статье мы представим эффективные средства для его получения.

Например, чтобы перестроить цветовые категории, вы удаляете все существующие цветовые категории в Outlook. Но после удаления вы можете обнаружить, что эти категории по-прежнему привязаны к элементам Outlook. Единственное изменение заключается в том, что категории теряют свои первоначальные цвета и отображаются белым цветом. В этом случае вы можете надеяться очистить все цветовые категории во всех элементах.

Чтобы сделать это для всех элементов в одной папке, вы можете просто нажать «Ctrl + A», чтобы выбрать все элементы, щелкнуть правой кнопкой мыши и выбрать «Категоризировать» и «Очистить все категории» в контекстном меню. Но таким образом вам придется обрабатывать каждую папку одну за другой. Это слишком утомительно. Итак, далее мы научим вас гораздо более удобному методу.

Пакетная очистка всех цветовых категорий во всех элементах Outlook

1. Для насtarт, запустите приложение 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