Note: The other languages of the website are Google-translated. Back to English
English English

 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


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění