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

Author: Kelly Last Modified: 2025-08-06

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

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

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

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

اضغط على مفتاح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

قم بتوسيع المشروع 1 و كائنات Microsoft Outlook في اللوحة الخاصة بالمشروع وانقر نقرًا مزدوجًا لفتح نافذة ThisOutlookSession ثم قم بلصق الكود التالي الخاص بـ VBA فيه.

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

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

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

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

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