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

 Hur rensar jag alla kategorier från Outlook?

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


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL