Bagaimana cara menghapus semua kategori dari Outlook?

Misalkan, ada banyak item yang diterapkan ke kategori warna di Outlook Anda. Jika Anda perlu menghapus semua kategori ini dari item, bagaimana Anda bisa menangani pekerjaan ini dengan cepat dan mudah di Outlook?

Hapus semua kategori dari folder tertentu dengan fitur Hapus Semua Kategori

Hapus semua kategori dari akun tertentu dengan kode VBA

Hapus semua kategori dari folder tertentu dengan fitur Hapus Semua Kategori

Jika Anda hanya perlu menghapus kategori di folder tertentu, lakukan seperti ini:

1. Klik folder yang ingin Anda hapus kategori warna, lalu tekan Ctrl + A untuk memilih semua item.

2. Lalu klik kanan, lalu pilih Mengkategorikan > Hapus Semua Kategori dari menu konteks, lihat tangkapan layar:

doc jelas kategori 1

3. Dan kemudian, semua kategori warna di folder khusus ini telah dihapus sekaligus.

Hapus semua kategori dari akun tertentu dengan kode VBA

Untuk menghapus semua kategori dari semua item, seperti email, tugas, kontak, catatan, dan sebagainya dari akun, kode VBA di bawah ini dapat membantu Anda:

1. Klik di email akun yang ingin Anda bersihkan semua kategorinya, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Hapus semua kategori dari akun tertentu:

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. Lalu tekan F5 kunci untuk menjalankannya, dan kemudian kotak prompt muncul untuk mengingatkan Anda semua kategori dari akun yang dipilih telah dihapus, lihat tangkapan layar:

doc jelas kategori 2