После удаления цветовой категории она по-прежнему будет отображаться в элементах Outlook, которым вы назначили эту категорию. Это рost научит вас, как быстро удалить такие цветовые категории из элементов Outlook.
Outlook позволяет пользователям добавлять и удалять цветовые категории по желанию. Однако, хотя вы удаляете цветовую категорию, если вы ранее назначали ее многим элементам Outlook, эта цветовая категория не будет соответственно удалена из элементов. Теперь, когда вы удалили эту цветовую категорию, а это значит, что она бесполезна, почему бы не удалить ее и из элементов Outlook? Далее мы научим вас быстрому способу реализации этого.
Пакетное удаление удаленных цветовых категорий из всех элементов Outlook
- В самом начале сtart ваше приложение Outlook, как обычно.
- Затем, после доступа к главному окну Outlook, вы можете нажать клавиши «Alt + F11», чтобы открыть окно «Microsoft Visual Basic для приложений».
- В новом экране вам нужно найти и открыть неиспользуемый модуль.
- Затем скопируйте следующий код VBA в этот модуль.
Dim objSourceStore As Outlook.Store Dim strMasterCategoryList As String Sub DeleteAllColorCategories_ThatAreNotInMasterCategoryList() Dim objSourcePSTFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Укажите исходный PST-файл Outlook Set objSourceStore = Application.Session.Stores.Item("John Smith") 'Получите все цветовые категории этого PST-файла для каждой objCategory В objSourceStore.Categories strMasterCategoryList = objCategory.Name & ", " & strMasterCategoryList Next Set objSourcePSTFile = Outlook.Application.Session.folders("John Smith") Для каждой objFolder В objSourcePSTFile.folders Вызов ProcessFolders(objFolder) Next End Sub Sub ProcessFolders( ByVal objCurrentFolder As Outlook.Folder) Dim objVariant As Variant Dim strCategories As String Dim varArray As Variant Dim i, n As Long For i = objCurrentFolder.Items.count To 1 Шаг -1 Установить objVariant = objCurrentFolder.Items.Item(i) If objVariant.Categories <> "" Then strCategories = objVariant.Categories 'Получить все цветовые категории этого товара varArray = Split(objVariant.Categories, ",") For n = 0 To UBound(varArray) 'Проверить, есть ли каждая цветовая категория этого элемента в списке основных категорий If InStr(1, strMasterCategoryList, Trim(varArray(n))) = 0 Then 'Если нет, удалите эту категорию Вызовите RemoveCategory(objVariant, varArray(n)) objVariant.Save End If Next n End If Next i 'Рекурсивно обрабатывать все вложенные папки If objCurrentFolder.folders.count > 0 Then For Each objSubfolder In objCurrentFolder.folders Вызов ProcessFolders(objSubfolder) Next End If End Sub Sub RemoveCategory( objCurrentItem, strCategory) Dim varNewArray As Variant varNewArray = Split(objCurrentItem.Categories, ",") If UBound(varNewArray) >= 0 Then For i = 0 To UBound(varNewArray) 'Найти конкретную цветовую категорию If Trim(varNewArray(i )) = strCategory Then 'Удалить его из этого элемента varNewArray(i) = "" 'Перестроить цветовые категории этого элемента objCurrentItem.Categories = Join(varNewArray, ",") Exit Sub End If Next End If End Sub
- После этого вы должны изменить уровень безопасности макросов Outlook на низкий.
- В конце концов, вы можете запустить этот макрос. Просто нажмите клавишу F5 на этом экране макроса или щелкните значок «Выполнить» на панели инструментов.
- После завершения работы макроса вы увидите, что все удаленные цветовые категории были удалены из элементов Outlook.
Outlook подвержен коррупции
Если вы являетесь постоянным пользователем Outlook, возможно, вы столкнулись с различными проблемами в Outlook. В общем, чтобы исправить небольшие ошибки, связанные с файлом PST, вы можете просто вернуться к встроенной утилите исправления — Скэнпст. Но если вы столкнулись с серьезными проблемами, такими как сильно скомпрометированный файл PST, у вас нет другого выбора, кроме как воспользоваться помощью внешнего мощного инструмента, такого как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий