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

أفضل أدوات إنتاجية أوفيس
أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...
👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!
افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

