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

كيفية حذف جميع المجلدات الفارغة في Outlook دفعة واحدة؟

افترض أن هناك العشرات من المجلدات الفارغة ضمن مجلد بريد في Outlook ، وعمومًا يمكننا حذف المجلدات الفارغة واحدة تلو الأخرى عن طريق النقر بزر الماوس الأيمن فوق القائمة. بالمقارنة مع النقر بزر الماوس الأيمن بشكل متكرر ، ستقدم هذه المقالة VBA لحذف جميع المجلدات الفرعية الفارغة لمجلد Outlook واحد بشكل مجمع.

حذف دفعة كافة المجلدات الفارغة في Outlook باستخدام VBA

علامة تبويب Office - قم بتمكين التحرير والتصفح المبوب في المكتب ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب 100 ميزة متقدمة قوية إلى Microsoft Outlook
  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي تعدد رسائل البريد الإلكتروني حسب القواعد ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عندما تحاول الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني في وقت واحد ؛ إضافة تحية تلقائية عند الرد إضافة التاريخ والوقت تلقائيًا إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عد الرسائل المختارة ، إزالة رسائل البريد وجهات الاتصال المكررة ...
  • أكثر من 100 ميزة متقدمة سوف حل معظم مشاكلك في Outlook 2021 - 2010 أو Office 365. الميزات الكاملة نسخة تجريبية مجانية مدتها 60 يومًا.

السهم الأزرق الحق فقاعةحذف دفعة كافة المجلدات الفارغة في Outlook باستخدام VBA

لإزالة كافة المجلدات الفرعية الفارغة لمجلد Outlook معين ، يرجى القيام بما يلي:

1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق رمز VBA أدناه في نافذة الوحدة النمطية الجديدة.

فبا: احذف جميع المجلدات الفرعية الفارغة لمجلد Outlook معين بشكل مجمّع

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. صحافة F5 مفتاح أو يجري زر لتشغيل رمز فبا هذا.

4. في مربع الحوار تحديد مجلد المنبثق ، يرجى تحديد المجلد المحدد الذي ستحذف مجلداته الفرعية الفارغة بالجملة ، وانقر فوق OK زر. انظر لقطة الشاشة:

5. يظهر الآن مربع حوار Kutools for Outlook ويظهر لك عدد المجلدات الفرعية الفارغة التي تم حذفها. انقر على OK زر لإغلاقه.

حتى الآن ، تم بالفعل حذف كافة المجلدات الفرعية لمجلد Outlook المحدد بشكل مجمع.


السهم الأزرق الحق فقاعةمقالات ذات صلة

ابحث عن المجلد (مسار المجلد الكامل) حسب اسم المجلد في Outlook


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

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

يبدو أن البرنامج النصي ينقل عنصرًا واحدًا إلى المجلد المحذوف ثم يخرج الأخطاء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أوافق - أحصل على نفس الخطأ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يحاول البرنامج النصي حذف مجلد تم حذفه بالفعل.
لقد أضفت صفًا بعد xFlag = خطأ بهذا المحتوى:
على خطأ استئناف المقبل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الواقع ، أضف:

على خطأ استئناف التالي

بعد:

Dim x Fldr As Folder 'قم بتعريف كائنات المجلد الفرعي
xFlag = خطأ

يجب أن تبدو هذه:

Dim x Fldr As Folder 'قم بتعريف كائنات المجلد الفرعي
xFlag = خطأ
على خطأ استئناف التالي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أتلقى نفس الخطأ مثل بريان .... والآن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يحاول البرنامج النصي حذف مجلد تم حذفه بالفعل.
لقد أضفت صفًا بعد xFlag = خطأ بهذا المحتوى:
على خطأ استئناف المقبل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سهل للغاية ومفيد بشكل لا يصدق. شكرًا لك!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تم حذف 74 مجلدًا فارغًا ولكن للأسف لم يتم حذف 109 مجلدًا أيضًا. تركت المجلدات الفارغة الأخرى دون مساس.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا عمل عظيم بالنسبة لي. شكرًا لك. لا يمكن حذف بعض المجلدات لأنها أصلية في Outlook ، ولكن المجلدات الفرعية تعمل بشكل رائع.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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