Jak vymazat všechny kategorie z Outlooku?
Předpokládejme, že v kategorii barev ve vašem Outlooku je použito mnoho položek. Pokud potřebujete vymazat všechny tyto kategorie z položek, jak byste mohli s touto prací rychle a snadno pracovat v Outlooku?
Vymažte všechny kategorie z konkrétní složky pomocí funkce Vymazat všechny kategorie
Vymažte všechny kategorie z konkrétního účtu pomocí kódu VBA
Vymažte všechny kategorie z konkrétní složky pomocí funkce Vymazat všechny kategorie
Pokud potřebujete pouze vymazat kategorie v konkrétní složce, postupujte takto:
1. Klikněte na složku, ze které chcete odebrat barevné kategorie, a stiskněte Ctrl + vyberte všechny položky.
2. Poté klikněte pravým tlačítkem a poté vyberte Kategorizujte > Vymazat všechny kategorie z kontextové nabídky viz screenshot:
3. A poté byly všechny barevné kategorie v této konkrétní složce vymazány najednou.
Vymažte všechny kategorie z konkrétního účtu pomocí kódu VBA
Chcete-li z účtu vymazat všechny kategorie ze všech položek, jako jsou e-maily, úkoly, kontakty, poznámky atd., Můžete si pomocí níže uvedeného kódu VBA udělat laskavost:
1. Klikněte na e-mail účtu, ze kterého chcete vyčistit všechny kategorie, a poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující makro do souboru Modul Okno.
Kód VBA: Vymažte všechny kategorie z konkrétního účtu:
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. Poté stiskněte tlačítko F5 klíč k jeho spuštění a poté se zobrazí okno s výzvou, které vám připomene, že všechny kategorie z vybraného účtu byly vymazány, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
