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

or

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

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

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

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

السهم الأزرق الفقاعة اليمنىدفعة حذف كافة المجلدات الفارغة في أوتلوك مع فبا

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

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

2. انقر إدراج > وحدة، والصق أسفل التعليمات البرمجية فبا في إطار وحدة نمطية جديدة.

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

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. الآن يأتي كوتولس ل أوتلوك مربع الحوار ويظهر لك كم عدد المجلدات الفرعية الفارغة تم حذفها. انقر على OK زر لإغلاقه.

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


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة

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


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.
  • To post as a guest, your comment is unpublished.
    Martin · 4 months ago
    74 empty folders were deleted but unfortunately also 109 folders that were not. Other empty folders were left untouched.
  • To post as a guest, your comment is unpublished.
    Adam · 1 years ago
    Super easy and incredibly helpful. Thank you!!
  • To post as a guest, your comment is unpublished.
    Spooz · 1 years ago
    I am getting the same error like Bryan.... and now?
    • To post as a guest, your comment is unpublished.
      Carina · 7 months ago
      The script tries to delete a folder that was already deleted.
      I added a row after xFlag = False with this content:
      on error resume next
  • To post as a guest, your comment is unpublished.
    Bryan · 1 years ago
    I am getting the following error when run the above " Run-time error '-2147352567 (80020009)' Cannot delete this folder. Right-click the folder, and then click properties to check your permissions for the folder. See the folder owner or your administrator to change your permissions"

    It appears the script moves 1 item to the deleted folder and then errors out.
    • To post as a guest, your comment is unpublished.
      TechGiant · 1 years ago
      Agree - I get the same error.
      • To post as a guest, your comment is unpublished.
        Carina · 7 months ago
        The script tries to delete a folder that was already deleted.
        I added a row after xFlag = False with this content:
        on error resume next
        • To post as a guest, your comment is unpublished.
          Munier Saliba · 6 months ago
          Indeed, add:

          On Error Resume Next

          AFTER:

          Dim x Fldr As Folder 'Declare sub folder objects
          xFlag = False

          It should look like this:

          Dim x Fldr As Folder 'Declare sub folder objects
          xFlag = False
          On Error Resume Next
  • To post as a guest, your comment is unpublished.
    Miroslav · 1 years ago
    Brilliant!!!