Note: The other languages of the website are Google-translated. Back to English

 Kako počistiti vse kategorije iz Outlooka?

Recimo, da je v Outlooku za barvno kategorijo uporabljenih veliko elementov. Če morate počistiti vse te kategorije iz elementov, kako se lahko v Outlooku hitro in enostavno spoprimete s tem delom?

Počistite vse kategorije iz določene mape s funkcijo Počisti vse kategorije

Izbrišite vse kategorije iz določenega računa s kodo VBA


Počistite vse kategorije iz določene mape s funkcijo Počisti vse kategorije

Če morate samo počistiti kategorije v določeni mapi, naredite naslednje:

1. Kliknite mapo, iz katere želite odstraniti barvne kategorije, in pritisnite Ctrl + , da izberete vse predmete.

2. Nato z desno miškino tipko kliknite in izberite Categorize > Počisti vse kategorije v priročnem meniju si oglejte posnetek zaslona:

doc clear kategorija 1

3. Nato so bile vse barvne kategorije v tej določeni mapi izbrisane hkrati.


Izbrišite vse kategorije iz določenega računa s kodo VBA

Če želite z računa počistiti vse kategorije iz vseh elementov, kot so e-pošta, opravila, stiki, opombe in tako naprej, vam lahko spodnja koda VBA naredi uslugo:

1. Kliknite e-poštni naslov računa, iz katerega želite očistiti vse kategorije, in držite gumb ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: počistite vse kategorije iz določenega računa:

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. Nato pritisnite F5 tipko, da jo zaženete, nato pa se prikaže pozivno polje, ki vas opomni, da so bile izbrisane vse kategorije izbranega računa, glejte posnetek zaslona:

doc clear kategorija 2


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije