نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


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

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

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

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

وثيقة واضحة فئة 1

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


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

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

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

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 ثم 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) لكل xFolder في xCurrentFolder.Folders استدعاء ProcessFolders (xFolder) التالي MsgBox "مسح اكتمل!" ، vbInformation + vbOKOnly "، Kutools لـ Outlook" End Sub SubFullers (ByVal CurFld باسم Outlook.Folder) Dim xItem باسم كائن Dim Dim باسم 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 = XNUM X ثم قم بإنهاء Sub للحصول على كل xSubfolder في CurFld.Folders استدعاء ProcessFolders (xSubfolder) التالي End Sub

3. ثم اضغط F5 مفتاح لتشغيله ، ثم برزت مربع موجه لتذكيرك تم مسح جميع الفئات من الحساب المحدد ، راجع لقطة الشاشة:

وثيقة واضحة فئة 2


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

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.