Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية توسيع جميع المجلدات تلقائيًا عند بدء تشغيل Outlook؟

Author Kelly Last modified

عادةً، عندما تقوم بتوسيع أو طي مجلد في لوحة التنقل في Outlook ثم تغلق البرنامج، يحتفظ المجلد بحالته مُوسعًا أو مطويًا عند إعادة فتح Outlook. ولكن ماذا لو كنت تريد أن يتم توسيع جميع المجلدات تلقائيًا في كل مرة تبدأ فيها Outlook؟ يقدم لك هذا المقال حلًا باستخدام VBA لتحقيق ذلك.

توسيع جميع المجلدات تلقائيًا عند بدء تشغيل Outlook باستخدام VBA


توسيع جميع المجلدات تلقائيًا عند بدء تشغيل Outlook باستخدام VBA

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

  1. اضغط على مفتاح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.
  2. قم بتوسيع المشروع 1 و كائنات Microsoft Outlook في اللوحة الخاصة بالمشروع وانقر نقرًا مزدوجًا لفتح نافذة ThisOutlookSession ثم قم بلصق الكود التالي الخاص بـ VBA فيه.

    doc-folders-automatically-expand-1

    VBA: توسيع جميع المجلدات تلقائيًا في Outlook

    Public WithEvents GEx As Explorer
    Public GFlag As Boolean
    Private Sub Application_Startup()
      'Update by ExtendOffice 2023/12/08
      Set GEx = Application.ActiveExplorer
      GFlag = False
    End Sub
    
    Private Sub GEx_SelectionChange()
      If GFlag = False Then
        ExpandAllFolders
      End If
      GFlag = True
    End Sub
    
    Public Sub ExpandAllFolders()
      Dim xNameSpace As Outlook.NameSpace
      Dim xFlds As Outlook.Folders
      Dim xCurrFld As Outlook.MAPIFolder
      Dim xFld As Outlook.MAPIFolder
      Dim xExpandDefaultStoreOnly As Boolean
      Dim xModule As NavigationModule
      On Error Resume Next
      xExpandDefaultStoreOnly = False
      Set xNameSpace = Application.Session
      Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
      Set xCurrFld = Application.ActiveExplorer.CurrentFolder
      If xExpandDefaultStoreOnly = True Then
        Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
        Set xFld = xFld.Parent
        Set xFlds = xFld.Folders
        LoopFolders xFlds, True
      Else
        LoopFolders xNameSpace.Folders, True
        LoopFolders xNameSpace.Folders, False
      End If
      DoEvents
      Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
      Set Application.ActiveExplorer.CurrentFolder = xCurrFld
      Set xNameSpace = Nothing
      Set xModule = Nothing
      Set xCurrFld = Nothing
    End Sub
    
    Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
      Dim xFld As Outlook.MAPIFolder
      On Error Resume Next
      For Each xFld In Flds
        Select Case All
          Case True
            If xFld.DefaultItemType = olMailItem Then
              Set Application.ActiveExplorer.CurrentFolder = xFld
              DoEvents
              If xFld.Folders.Count > 0 Then
                LoopFolders xFld.Folders, All
              End If
            End If
          Case False
            Set Application.ActiveExplorer.CurrentFolder = xFld
            DoEvents
            If xFld.Folders.Count > 0 Then
              LoopFolders xFld.Folders, All
            End If
        End Select
      Next
    End Sub
  3. احفظ الكود وأغلق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند إعادة تشغيل Outlook، سيتم توسيع جميع المجلدات تلقائيًا في Outlook.

ملاحظات:

  • لا يمكن لهذا الكود VBA فتح المجلدات المطوية للبحث عند إعادة تشغيل Outlook.
  • لضمان عمل نصوص VBA بشكل صحيح، من الضروري تعديل إعدادات الماكرو في Outlook. يرجى الانتقال إلى File > Options > Trust Center > Trust Center Settings > Macro Settings، واختيار الخيار Enable all macros. يسمح هذا الإعداد لنصوص VBA بالعمل دون أي قيود.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.
doc ai email handle

هذه الميزة تدعم:

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

هذه الميزة تدعم:

  • ردود البريد الإلكتروني الذكية
  • المحتوى المُحسّن
  • المسودات المستندة إلى الكلمات المفتاحية
  • التوسع الذكي للمحتوى
  • تلخيص البريد الإلكتروني
  • الترجمة متعددة اللغات

الأفضل من كل هذا، هذه الميزة مجانية تمامًا للأبد! لا تنتظر—حمّل مساعد البريد الإلكتروني الذكي الآن واستمتع


مقالات ذات صلة


أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

kutools for outlook features1 kutools for outlook features2

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

  • سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
  • 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
  • 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint