كيف يمكنني مسح جميع الفئات من Outlook؟

افترض أن هناك العديد من العناصر في Outlook تم تطبيق فئة لونية عليها. إذا كنت بحاجة إلى مسح كل هذه الفئات دفعة واحدة، فكيف يمكنك تنفيذ هذه المهمة بسرعة وسهولة في Outlook؟

مسح جميع الفئات من مجلد معيّن باستخدام ميزة «مسح جميع الفئات»

مسح جميع الفئات من حساب معيّن باستخدام كود VBA

---

مسح جميع الفئات من مجلد معيّن باستخدام ميزة «مسح جميع الفئات»

إذا كنت بحاجة فقط إلى مسح الفئات في مجلد معيّن، فالرجاء اتباع الخطوات التالية:

1. انقر على المجلد الذي تريد إزالة فئة اللون منه، ثم اضغط علىCtrl + A لتحديد جميع العناصر.

2. بعد ذلك، انقر بزر الماوس الأيمن، ثم اختر من قائمة السياقتصنيف > مسح جميع الفئات، كما في لقطة الشاشة:

3.بعد ذلك، سيتم حذف جميع فئات الألوان في هذا المجلد المعيّن دفعة واحدة.

---

مسح جميع الفئات من حساب معيّن باستخدام كود VBA

لمسح جميع الفئات من جميع العناصر، مثل الرسائل الإلكترونية والمهام وجهات الاتصال والملاحظات وما إلى ذلك من حساب معين، يمكن لرمز VBA أدناه أن يساعدك في ذلك:

1. انقر على بريد الحساب الذي تريد تنظيف جميع الفئات منه، ثم اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. انقر علىإدراج > وحدة، ثم الصق ماكرو التالي في نافذةالوحدة.

كود VBA: مسح جميع الفئات من حساب معيّن:

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. بعد ذلك، اضغط على مفتاحF5 لتشغيله، لتظهر نافذة منبثقة تُذكّرك بأنه تم مسح جميع الفئات من الحساب المحدد، كما في لقطة الشاشة: