Skip to main content

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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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


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

إذا كنت تحتاج فقط إلى مسح الفئات في مجلد محدد، يرجى القيام بما يلي:

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

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

doc clear category 1

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

doc clear category 2

أفضل أدوات الإنتاجية لمجموعة Office

خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، والتلخيص، والتحسين، والتوسيع، والترجمة، وكتابة الرسائل.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...

📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

kutools for outlook features1 kutools for outlook features2