Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как очистить все категории от Outlook?

Предположим, в категории «Цвет» в вашем Outlook применяется множество элементов. Если вам нужно удалить все эти категории из элементов, как можно быстро и легко справиться с этой задачей в Outlook?

Очистить все категории из определенной папки с помощью функции «Очистить все категории»

Удалить все категории из определенной учетной записи с кодом VBA


Очистить все категории из определенной папки с помощью функции «Очистить все категории»

Если вам просто нужно очистить категории в определенной папке, сделайте следующее:

1, Щелкните папку, в которой вы хотите удалить категории цветов, а затем нажмите Ctrl + для выбора всех элементов.

2, Затем щелкните правой кнопкой мыши, а затем выберите классифицировать > Очистить все категории из контекстного меню, см. снимок экрана:

doc clear категория 1

3. И тогда все цветовые категории в этой конкретной папке были очищены сразу.


Удалить все категории из определенной учетной записи с кодом VBA

Чтобы очистить все категории от всех элементов, таких как электронные письма, задачи, контакты, заметки и т. Д. От учетной записи, приведенный ниже код VBA может оказать вам услугу:

1, Нажмите на адрес электронной почты учетной записи, из которого вы хотите удалить все категории, затем нажмите и удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий макрос в модуль Окно.

Код VBA: удалить все категории из определенной учетной записи:

Sub BatchClearAllCategories_AllOutlookItems () Dim xCurrentFolder As Outlook.Folder Dim xFolder As Folder, xCurFolder As Folder Dim xPos As Integer Dim xRootFldName As String Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder xPos = InStr (3, xCurFolder.FolderPath, "\") Если xPos > 0 Затем xRootFldName = Mid (xCurFolder.FolderPath, 3, xPos - 3) Else xRootFldName = Mid (xCurFolder.FolderPath, 3, Len (xCurFolder.FolderPath) - 2) End If Set xCurrentFolder = Outlook.Application.Session.Folders ( xRootFldName) Для каждого xFolder в xCurrentFolder.Folders Call ProcessFolders (xFolder) Next MsgBox «Clear completed!», vbInformation + vbOKOnly, «Kutools for Outlook» End Sub Sub ProcessFolders (ByVal CurFld As Outlook.Folder) Dim xItem As Object Dim i As Integer Dim xSubfolder As Outlook.Folder Если CurFld.Items.Count> 0 Then For i = CurFld.Items.Count To 1 Step -1 Set xItem = CurFld.Items.Item (i) xItem.Categories = "" xItem.Save Next End If If CurFld.Folders.Count = XNUM X Затем выйдите из Sub для каждой xSubfolder в CurFld.Folders Call ProcessFolders (xSubfolder) Next End Sub

3, Затем нажмите F5 чтобы запустить его, а затем появится окно подсказки, чтобы напомнить вам, что все категории из выбранной учетной записи были очищены, см. снимок экрана:

doc clear категория 2


Kutools для Outlook - предоставляет расширенные функции 100 для Outlook и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и больше автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать при отсутствии вложенийи еще напомнить особенности ...
  • Ответить (Все) Со всеми вложениями в почтовом разговоре; Ответить много писем в секундах; Автоматическое добавление приветствия когда ответишь; Добавить дату в тему ...
  • Инструменты вложения: Управление всеми вложениями во всех письмах, Автоотключение, Сжать все, Переименовать все, Сохранить все ... Быстрый отчет, Считать выбранные письма...
  • Мощные нежелательные письма по заказу; Удалить дубликаты писем и контактов... Позволит вам делать умнее, быстрее и лучше в Outlook.
выстрел kutools Outlook Outlook вкладка kutools
выстрел kutools внешний вид kutools плюс вкладка
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.