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:
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:
Bästa kontorsproduktivitetsverktyg
Kutools for Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
📧 Email Automation: Frånvaro (tillgänglig 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: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande 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 ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.