Přejít k hlavnímu obsahu

 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:

doc clear kategorie 1

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:

doc clear kategorie 2


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (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: Snadné vyvolání e-mailů  /  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 ProDá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ů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  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 ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations