Як очистити всі категорії з Outlook?
Припустимо, у вашій програмі Outlook до категорії кольорів застосовано багато елементів. Якщо вам потрібно очистити всі ці категорії з елементів, як би ви могли швидко та легко впоратися з цією роботою в Outlook?
Видаліть усі категорії з певної папки за допомогою функції Очистити всі категорії
Видаліть усі категорії з певного облікового запису за допомогою коду VBA
Видаліть усі категорії з певної папки за допомогою функції Очистити всі категорії
Якщо вам просто потрібно очистити категорії в певній папці, зробіть так:
1. Клацніть папку, з якої потрібно видалити кольорові категорії, а потім натисніть Ctrl + A щоб вибрати всі елементи.
2. Потім клацніть правою кнопкою миші, а потім виберіть Узагальнити > Очистити всі категорії у контекстному меню див. знімок екрана:
3. А потім усі категорії кольорів у цій конкретній папці були очищені відразу.
Видаліть усі категорії з певного облікового запису за допомогою коду VBA
Щоб очистити всі категорії з усіх елементів, таких як електронні листи, завдання, контакти, нотатки тощо, з облікового запису, наведений нижче код VBA може зробити вам послугу:
1. Клацніть на електронну адресу облікового запису, з якої потрібно очистити всі категорії, і натисніть і утримуйте ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно
Код 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, "\")
If xPos > 0 Then
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)
For Each xFolder In 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
If 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 = 0 Then Exit Sub
For Each xSubfolder In CurFld.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3. Потім натисніть F5 клавішу, щоб запустити його, а потім з'явиться підказка, щоб нагадати вам, що всі категорії з вибраного облікового запису були очищені, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.