Outlook'tan tüm kategorileri nasıl temizleyebilirim?

Outlook'ta çok sayıda öğeye renk kategorisi uygulanmış durumdaysa, bu kategorileri öğelerden tamamen kaldırmak için işlemi hızlı ve kolay bir şekilde nasıl gerçekleştirebilirsiniz?

Tüm kategorileri belirli bir klasörden "Tüm Kategorileri Temizle" özelliğini kullanarak kaldırma

Tüm kategorileri belirli bir hesaptan VBA koduyla kaldırma

---

Tüm kategorileri belirli bir klasörden "Tüm Kategorileri Temizle" özelliğini kullanarak kaldırma

Yalnızca belirli bir klasördeki kategorileri temizlemek istiyorsanız, şu adımları izleyin:

1. Kategorilerini kaldırmak istediğiniz klasöre tıklayın ve ardından tüm öğeleri seçmek için Ctrl + A tuşlarına basın.

2. Ardından sağ tıklayın ve bağlam menüsünden Kategorize Et > Tüm Kategorileri Temizle seçeneğini seçin; ekran görüntüsüne bakın:

3. Ardından, bu belirli klasördeki tüm Renk Kategorileri aynı anda temizlenir.

---

Tüm kategorileri belirli bir hesaptan VBA koduyla kaldırma

Bir hesaptaki e-postalar, görevler, kişiler, notlar vb. tüm öğelerden kategorileri temizlemek için aşağıdaki VBA kodu yardımcı olabilir:

1. Tüm kategorilerini temizlemek istediğiniz hesabın e-postasına tıklayın, ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki makroyu Modül penceresine yapıştırın.

VBA kodu: Belirli bir hesaptan tüm kategorileri temizleme:

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. Ardından, çalıştırmak için F5 tuşuna basın; seçili hesaptan tüm kategorilerin temizlendiğini bildiren bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın: