Kuinka tyhjentää kaikki luokat Outlookista?
Oletetaan, että Outlookin väriluokkaan sovelletaan monia kohteita. Jos sinun on poistettava kaikki nämä luokat kohteista, kuinka voit käsitellä tätä työtä nopeasti ja helposti Outlookissa?
Poista kaikki luokat tietystä kansiosta Clear All Categories -ominaisuuden avulla
Poista kaikki luokat tietystä tilistä VBA-koodilla
Poista kaikki luokat tietystä kansiosta Clear All Categories -ominaisuuden avulla
Jos sinun on vain tyhjennettävä tietyn kansion luokat, toimi seuraavasti:
1. Napsauta kansiota, jonka väriluokat haluat poistaa, ja paina sitten Ctrl + valitaksesi kaikki kohteet.
2. Napsauta sitten hiiren kakkospainikkeella ja valitse sitten Luokitella > Tyhjennä kaikki luokat kontekstivalikosta, katso kuvakaappaus:
3. Ja sitten kaikki tämän kansion väriluokat on tyhjennetty kerralla.
Poista kaikki luokat tietystä tilistä VBA-koodilla
Voit poistaa kaikki luokat kaikista kohteista, kuten sähköpostit, tehtävät, yhteystiedot, muistiinpanot ja niin edelleen tililtä, alla oleva VBA-koodi voi tehdä sinulle palveluksen:
1. Napsauta tilin sähköpostiviestiä, josta haluat poistaa kaikki luokat, ja pidä sitten -painiketta painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Klikkaus liite > Moduulit, ja liitä seuraava makro Moduulit Ikkuna.
VBA-koodi: Poista kaikki luokat tietystä tilistä:
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. Paina sitten F5 näppäintä sen suorittamiseksi, ja sitten näkyviin tulee kehoteruutu, joka muistuttaa, että kaikki valitun tilin luokat on tyhjennetty, katso kuvakaappaus:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
