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

or

كيفية فتح كافة المجلدات الفرعية من Outlook؟

إذا قمت بإنشاء مجلدات فرعية متعددة ضمن مجلدات Outlook ، كيف يمكنك فتح كافة هذه المجلدات الفرعية أو توسيعها على الفور؟ هذه المادة ، وسوف أعرض لك رمز VBA مفيد لك لحل هذه المهمة.

افتح أو توسيع كافة المجلدات الفرعية من Outlook برمز VBA


افتح أو توسيع كافة المجلدات الفرعية من Outlook برمز VBA

الرجاء تطبيق التعليمات البرمجية لـ VBA التالية لتوسيع كافة المجلدات الفرعية من كافة حسابات Outlook:

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

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

رمز VBA: فتح كافة المجلدات الفرعية من Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder باسم Folder Dim xAllFolders باسم المجلدات DimFe xFolder باسم مجلد عند خطأ استئناف التالي Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders لكل xFolder في xAllFolders استدعاء ProcessFolders (xFolder) التالي تعيين التطبيق. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub SubFoolers (ByVal CurFolder As Folder) Dim xSubfolder كمجلد على خطأ استئناف التالي If CurFolder.DefaultItemType <> olMailItem ثم قم بإنهاء المجموعة الفرعية Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents إذا كان CurFolder.Folders.Count = 0 ثم قم بإنهاء Sub للحصول على كل xSubfolder في CurFolder.Folders استدعاء ProcessFolders (xSubfolder) التالي End Sub

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

وثيقة توسيع المجلدات الفرعية 1


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.
    Doug Fisher · 9 months ago
    I have been looking for this answer for a long time! Thank you.