Note: The other languages of the website are Google-translated. Back to English

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

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

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

امسح كل الفئات من حساب معين برمز VBA


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

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

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

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

وثيقة مسح الفئة 1

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


امسح كل الفئات من حساب معين برمز VBA

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

1. انقر فوق بريد إلكتروني لحساب تريد تنظيف جميع الفئات منه ، ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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

وثيقة مسح الفئة 2


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL