Slik fjerner du slettede fargekategorier fra alle Outlook-elementer

Etter at du har slettet en fargekategori, vil den fortsatt vises i Outlook-elementene som du har tilordnet kategorien til. Denne post vil lære deg hvordan du raskt fjerner slike fargekategorier fra Outlook-elementer.

Outlook tillater brukere å legge til og slette fargekategorier etter eget ønske. Men selv om du sletter en fargekategori, hvis du har tilordnet den til mange Outlook-elementer før, vil ikke denne fargekategorien bli fjernet fra elementene tilsvarende. Nå som du har slettet denne fargekategorien, som betyr at den er ubrukelig, hvorfor ikke fjerne den fra Outlook-elementene også? Nå, i det følgende, vil vi lære deg en rask metode for å realisere det.

Batch Fjern slettede fargekategorier fra alle Outlook-elementer

Batch Fjern slettede fargekategorier fra alle Outlook-elementer

  1. Helt i begynnelsen, start Outlook-applikasjonen din som vanlig.
  2. Deretter, etter å ha åpnet hovedvinduet i Outlook, kan du trykke på "Alt + F11" -tastene, som vil få opp vinduet "Microsoft Visual Basic for Applications".
  3. I den nye skjermen må du finne og åpne en ubrukt modul.
  4. Deretter kopierer du følgende VBA-kode inn i denne modulen.
Dim objSourceStore As Outlook.Store Dim strMasterCategoryList As String Sub DeleteAllColorCategories_ThatAreNotInMasterCategoryList() Dim objSourcePSTFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Spesifiser kilden Outlook PST-filen Sett objSourceStore = Application.Session.Stores.Item("John Smith") 'Få alle fargekategoriene til denne PST-filen for hver objCategory I objSourceStore.Categories strMasterCategoryList = objCategory.Name & ", " & strMasterCategoryList Neste Set objSourcePSTFile = Outlook.Application.Session.folders("John Smith") For hver objFolder I objSourcePSTFile.folders Call ProcessFolders(objFold) ProcessFolders(objFold) ByVal objCurrentFolder As Outlook.Folder) Dim objVariant As Variant Dim strCategories As String Dim varArray As Variant Dim i, n As Long For i = objCurrentFolder.Items.count To 1 Step -1 Sett objVariant = objCurrentFolder.Items.Item(i) If objVariant.Categories <> "" Then strCategories = objVariant.Categories 'Get all fargekategorier for denne varen varArray = Split(objVariant.Categories, ",") For n = 0 Til UBound(varArray) 'Sjekk om hver fargekategori for dette elementet er i hovedkategorilisten If InStr(1, strMasterCategoryList, Trim(varArray(n))) = 0 Deretter 'Hvis ikke, fjern denne kategorien Call RemoveCategory(objVariant, varArray(n)) objVariant.Save End If Next n End If Next i 'Behandle alle undermapper rekursivt If objCurrentFolder.folders.count > 0 Then For Every objSubfolder In objCurrentFolder.folders Call ProcessFolders(objSubfolder) Next End If End Sub Sub RemoveCategory objCurrentItem, strCategory) Dim varNewArray As Variant varNewArray = Split(objCurrentItem.Categories, ",") If UBound(varNewArray) >= 0 Then For i = 0 To UBound(varNewArray) 'Finn den spesifikke fargekategorien If Trim(varNewArray(i) )) = strCategory Deretter 'Slett det fra dette elementet varNewArray(i) = "" 'Gjenoppbygg fargekategoriene til dette elementet objCurrentItem.Categories = Join(varNewArray, ","") Avslutt Sub End If Next End If End Sub

VBA-kode - Batch Fjern slettede fargekategorier fra alle Outlook-elementer

  1. Etter det bør du endre Outlook-makrosikkerhetsnivået til lavt.
  2. Til slutt kan du kjøre denne makroen. Bare trykk på F5-tasten i denne makroskjermen eller klikk på "Kjør"-ikonet i verktøylinjen.
  3. Etter at makroen er ferdig å kjøre, vil du se at alle fargekategoriene som er slettet, er fjernet fra Outlook-elementer.

Outlook er utsatt for korrupsjon

Hvis du er en vanlig bruker av Outlook, har du kanskje støtt på en rekke problemer i Outlook. Generelt, for å fikse de små feilene som involverer PST-filen, kan du bare gå tilbake til det innebygde fikseringsverktøyet - scanpst. Men hvis du lider av alvorlige problemer, for eksempel alvorlig kompromittert PST-fil, har du ikke noe annet valg enn å ta hjelp av et eksternt potent verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *