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

or

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

بصفة عامة، إذا قمت بتوسيع أو طي مجلد على جزء التنقل ثم قم بإغلاق أوتلوك، سيظل المجلد توسيع أو انهيار عند إعادة تشغيل أوتلوك. ولكن الآن، هل هناك طريقة لتوسيع جميع المجلدات تلقائيا عند بدء تشغيل أوتلوك؟ سوف يعرض هذا المقال فبا لإكمال المهمة.

توسيع جميع المجلدات تلقائيا عند بدء تشغيل أوتلوك مع فبا

كوتولس ل أوتلوك: شنومكس + أدوات متقدمة جديدة ل أوتلوك.
تبويب أوفيس: تمكين التحرير المبوب والتصفح في أوفيس، تماما مثل كروم، فايرفوكس، إي شنومكس / شنومكس / شنومكس.
القائمة الكلاسيكية: جلب القوائم القديمة وأشرطة الأدوات مرة أخرى إلى Office 2007 و 2010 و 2013 و 2016 و 2019.

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

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

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

2. التوسع في مشروع 1 و كائنات ميكروسوفت أوتلوك في جزء المشروع، انقر نقرا مزدوجا لفتح ThisOutlookSession نافذة، ثم لصق أدناه فبا التعليمات البرمجية في ذلك.

فبا: توسيع جميع المجلدات تلقائيا في أوتلوك

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. حفظ التعليمات البرمجية وإغلاق إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

من الآن فصاعدا، عند إعادة تشغيل أوتلوك، سيتم توسيع كافة المجلدات تلقائيا في أوتلوك.ملاحظة:: لا يمكن هذا فبا فتح مجلدات البحث المنهارة عند إعادة تشغيل أوتلوك.


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



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

أكثر من 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.
  • To post as a guest, your comment is unpublished.
    Selvi · 8 months ago
    Thank you so much.. It solved my problem. :)