Как да изчистите всички категории от Outlook?
Да предположим, че има много елементи, приложени към цветовата категория във вашия Outlook. Ако трябва да изчистите всички тези категории от елементите, как бихте могли да се справите с тази задача бързо и лесно в Outlook?
Изчистете всички категории от конкретна папка с функцията Изчистване на всички категории
Изчистете всички категории от конкретен акаунт с VBA код
Изчистете всички категории от конкретна папка с функцията Изчистване на всички категории
Ако просто трябва да изчистите категориите в конкретна папка, моля, направете следното:
1. Щракнете върху папката, от която искате да премахнете цветовите категории, и след това натиснете Ctrl + A за да изберете всички елементи.
2. След това щракнете с десния бутон и изберете категоризирам > Изчистване на всички категории от контекстното меню вижте екранната снимка:
3. След това всички цветови категории в тази конкретна папка са изчистени наведнъж.
Изчистете всички категории от конкретен акаунт с VBA код
За да изчистите всички категории от всички елементи, като имейли, задачи, контакти, бележки и т.н. от акаунт, кодът VBA по-долу може да ви направи услуга:
1. Щракнете върху имейл на акаунт, от който искате да изчистите всички категории, след което задръжте ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния макрос в Модули Window.
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
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.