Conas gach catagóir a ghlanadh ó Outlook?

Ag rá, tá go leor earraí i bhfeidhm ar an gcatagóir dathanna i do Outlook. Más gá duit na catagóirí seo go léir a ghlanadh ó na míreanna, conas a d’fhéadfá déileáil leis an bpost seo go tapa agus go héasca in Outlook?

Glan gach catagóir ó fhillteán ar leith le gné Clear All Categories

Glan gach catagóir ó chuntas ar leith le cód VBA

Glan gach catagóir ó fhillteán ar leith le gné Clear All Categories

Mura gá duit ach na catagóirí a ghlanadh i bhfillteán ar leith, déan é seo le do thoil:

1. Cliceáil an fillteán a theastaíonn uait na catagóirí dathanna a bhaint, agus ansin brúigh Ctrl + A chun na míreanna go léir a roghnú.

2. Ansin cliceáil ar dheis, agus ansin roghnaigh Catagóiriú > Glan Gach Catagóir ón roghchlár comhthéacs, féach an scáileán:

doc catagóir 1 soiléir

3. Agus ansin, tá na catagóirí dathanna uile san fhillteán sonrach seo glanta ag an am céanna.

Glan gach catagóir ó chuntas ar leith le cód VBA

Chun gach catagóir a ghlanadh ó gach earra, mar ríomhphoist, tascanna, teagmhálacha, nótaí agus mar sin de ó chuntas, is féidir leis an gcód VBA thíos fabhar a dhéanamh duit:

1. Cliceáil ag r-phost cuntais ar mhaith leat gach catagóir a ghlanadh uaidh, ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Glan gach catagóir ó chuntas sonrach:

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. Ansin, brúigh F5 eochair chun é a rith, agus ansin tá bosca pras popped amach chun a mheabhrú duit go bhfuil gach catagóir ón gcuntas roghnaithe glanta, féach an scáileán:

doc catagóir 2 soiléir