Hoppa till huvudinnehåll

 Hur rensar jag alla kategorier från Outlook?

Författare: Xiaoyang Senast ändrad: 2024-08-21

Antag att det finns många saker som används i färgkategorin i din Outlook. Om du behöver rensa alla dessa kategorier från artiklarna, hur kan du hantera det här jobbet snabbt och enkelt i Outlook?

Rensa alla kategorier från en specifik mapp med funktionen Rensa alla kategorier

Rensa alla kategorier från ett specifikt konto med VBA-kod


Rensa alla kategorier från en specifik mapp med funktionen Rensa alla kategorier

Om du bara behöver rensa kategorierna i en viss mapp, gör så här:

1. Klicka på mappen som du vill ta bort färgkategorierna och tryck sedan på Ctrl + A för att välja alla objekt.

2. Högerklicka sedan och välj sedan kategori~~POS=TRUNC > Rensa alla kategorier från snabbmenyn, se skärmdump:

doc rensa kategori 1

3. Och sedan har alla färgkategorier i den här specifika mappen rensats på en gång.


Rensa alla kategorier från ett specifikt konto med VBA-kod

För att rensa alla kategorier från alla objekt, såsom e-post, uppgifter, kontakter, anteckningar och så vidare från ett konto, kan nedanstående VBA-kod göra dig en tjänst:

1. Klicka på ett konto-e-postmeddelande som du vill rensa alla kategorier från och håll sedan ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Rensa alla kategorier från ett visst konto:

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. Tryck sedan på F5 nyckel för att köra den och sedan visas en snabbruta för att påminna dig om att alla kategorier från det valda kontot har rensats, se skärmdump:

doc rensa kategori 2

Bästa kontorsproduktivitetsverktyg

Nyheter: Kutools for Outlook Lanserar gratisversionen!

Upplev det helt nya Kutools for Outlook GRATISversion med 70+ otroliga funktioner, din att använda FÖR ALLTID! Klicka för att ladda ner nu!

🤖 Kutools AI : Använder avancerad AI-teknik för att hantera e-postmeddelanden utan ansträngning, inklusive att svara, sammanfatta, optimera, utöka, översätta och skriva e-postmeddelanden.

📧 Email Automation: Autosvar (tillgängligt för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Återkalla e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Påminn dig när viktiga mejl kommer  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Använda Kutools på ditt föredragna språk – stöder engelska, spanska, tyska, franska, kinesiska och över 40 andra!

Lås upp direkt Kutools for Outlook med ett enda klick. Vänta inte, ladda ner nu och öka din effektivitet!

kutools för Outlook-funktioner1 kutools för Outlook-funktioner2