Kuinka erittää kaikki värikategoriat kaikista Outlook-kohteista

Joissakin tarkoituksissa haluat aloittaa väriluokkien käytön alusta alkaen Outlookissa. Siksi haluat poistaa kaikki väriluokat kaikista Outlook-kohteista. Tässä artikkelissa esittelemme tehokkaan tavan saada se aikaan.

Esimerkiksi väriluokkien uudelleen rakentamiseksi poistat kaikki olemassa olevat väriluokat Outlookista. Mutta poistamisen jälkeen saatat huomata, että nämä luokat ovat edelleen liitetty Outlook-kohteisiin. Ainoa muutos on, että luokat menettävät alkuperäiset värinsä näytettynä valkoisina. Tässä tilanteessa saatat toivoa kaikkien värien kaikkien luokkien tyhjentämistä.

Voit tehdä tämän kaikille kansion kohteille valitsemalla haluamasi kohteet painamalla "Ctrl + A", napsauttamalla hiiren kakkospainikkeella ja valitsemalla pikavalikosta "Luokitella" ja "Tyhjennä kaikki luokat". Mutta tällä tavalla sinun on käsiteltävä jokainen kansio yksitellen. Se on liian tylsiä. Joten seuraavissa opetamme sinulle paljon helpomman menetelmän.

Erä Tyhjennä kaikki värikategoriat kaikissa Outlook-kohteissa

1. Aloita käynnistämällä Outlook-sovellus.
2. Käynnistä sitten VBA-editori painamalla Alt + F11-pikanäppäimiä.
3. Kopioi ja liitä seuraava VBA-koodi näyttöön tulevaan ikkunaan tyhjään moduuliin tai projektiin.

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. Tämän jälkeen siirrä kohdistin ensimmäiseen alirutiiniin ja paina sitten "F5" -näppäintä makron käynnistämiseksi.
5. Kun saat "Valmiit" -kehotteen, se tarkoittaa, että kaikki värikategoriat on tyhjennetty kaikista Outlook-kohteista.
6. Tällä hetkellä ei ole väliä sähköpostit, tapaamiset, tehtävät, yhteystiedot tai muistiinpanot Outlookissa, niissä kaikissa ei saa olla ehdottomasti määrättyjä väriluokkia.

Ratkaise vakavat Outlook-ongelmat

Ehkä olet tiennyt, että Outlookiin on esiasennettu sisäänrakennettu korjaustyökalu - Scanpst.exe. Oletko koskaan kokeillut sitä aiemmin? Ollakseni rehellinen, se on tarpeeksi tehokas käsittelemään pieniä ongelmia, joihin liittyy Outlook PST -tiedosto. Kuitenkin, jos asia on huomattavan vakava, kuten huonosti vahingoittunut Outlook tiedosto, sisäinen apuohjelma ei tee vaikutuksia. Tässä tilanteessa joudut palaamaan takaisin ulkoisen kärjen päälle, kuten DataNumen Outlook Repair, joka on hartannut kilpailijansa korkean PST-palautumisensa vuoksi.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korjata ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com