Sådan batches Ryd alle farvekategorier i alle Outlook-emner

Af nogle årsager vil du gerne begynde at bruge farvekategorier fra bunden i din Outlook. Derfor vil du gerne rydde alle farvekategorier i alle Outlook-elementer. I denne artikel vil vi introducere en effektiv måde at få det på.

For eksempel, for at genopbygge farvekategorier, sletter du alle de eksisterende farvekategorier i din Outlook. Men efter sletning kan du muligvis finde ud af, at disse kategorier stadig er knyttet til Outlook-elementerne. Den eneste ændring er, at kategorierne mister deres originale farver og vises i hvidt. Under denne omstændighed håber du muligvis at rydde alle farvekategorier i alle varer.

For at gøre dette for alle emner i en mappe kan du bare trykke på "Ctrl + A" for at vælge alle emner, højreklik og vælge "Kategoriser" og "Ryd alle kategorier" i genvejsmenuen. Men på denne måde skal du behandle hver mappe en efter en. Det er for kedeligt. Så i det følgende vil vi lære dig en meget mere bekvem metode.

Batch Ryd alle farvekategorier i alle Outlook-emner

1. Til at starte med skal du starte Outlook-applikationen.
2. Tryk derefter på "Alt + F11" -tastgenveje for at udløse VBA-editor.
3. I det nye vindue, skal du kopiere og indsætte følgende VBA-kode i et tomt modul eller projekt.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Derefter skal du placere markøren i den første underrutine og derefter trykke på “F5” -tasten for at udløse makroen.
5. Når du får meddelelsen "Afsluttet", betyder det, at alle farvekategorier er blevet ryddet fra alle Outlook-emner.
6. På nuværende tidspunkt, uanset e-mails, aftaler, opgaver, kontakter eller noter i din Outlook, skal alle ikke have nogen farvekategorier tildelt absolut.

Løs alvorlige Outlook-problemer

Måske har du vidst, at Outlook leveres forudinstalleret med et indbygget reparationsværktøj - Scanpst.exe. Har du nogensinde prøvet det før? For at være ærlig er det kraftigt nok til at håndtere små problemer, der involverer din Outlook PST-fil. Men hvis problemet er betydeligt alvorligt, såsom dårligt beskadiget Outlook fil, vil det interne værktøj ikke have effekter. I denne situation skal du falde tilbage på et tip-top eksternt værktøj, f.eks DataNumen Outlook Repair, som har overskredet sine rivaler på grund af dets høje PST-opsving.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server fastsætte og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com