الكوكيز تساعدنا تقديم خدماتنا. باستخدام خدماتنا، فإنك توافق على استخدامنا لملفات تعريف الارتباط.
نصيحة: اللغات الأخرى مترجمة من قبل 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



كوتولس ل أوتلوك

أكثر من 100 Advanced Functions لـ Outlook 2010 و 2013 و 2016 و 2019 و 365

لقطة شاشة kutools للنظرة صغيرة لراية 201812

المزيد من الميزات | تحميل مجانا | فقط شنومكس $ لمئات من الوظائف

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.