טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד להרחיב באופן אוטומטי את כל התיקיות בעת הפעלת Outlook?

באופן כללי, אם תרחיב או תקרוס תיקייה בחלונית הניווט ולאחר מכן תסגור את Outlook, התיקיה תישאר מתרחבת או מתמוטטת בעת הפעלה מחדש של Outlook. אבל עכשיו, האם יש דרך להרחיב את כל התיקיות באופן אוטומטי בעת הפעלת Outlook? מאמר זה יציג VBA כדי להשלים את המשימה.

הרחב באופן אוטומטי את כל התיקיות בעת הפעלת Outlook עם VBA

Kutools עבור Outlook: 100 + כלים מתקדמים חדשים עבור Outlook.
הכרטיסייה 'משרד': אפשר עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי: הבא תפריטים ישנים סרגלי כלים חזרה אל 2007, 2010, 2013, 2016 ו- 2019.

חץ כחול בועה ימיןהרחב באופן אוטומטי את כל התיקיות בעת הפעלת Outlook עם VBA

שיטה זו תציג VBA כדי להרחיב באופן אוטומטי את כל התיקיות בחלונית הניווט בעת הפעלת Outlook. בבקשה להחיל את VBA כדלקמן:

1. ללחוץ אחר + F11 מקשים בו זמנית כדי לפתוח את החלון של Microsoft Visual Basic for Applications.

2. הרחב את הפרויקט 1 ו אובייקטים של Microsoft Outlook בחלונית הפרויקט, לחץ פעמיים כדי לפתוח את זה ולאחר מכן להדביק קוד VBA לתוך זה.

VBA: להרחיב באופן אוטומטי את כל התיקיות ב- Outlook

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. שמור את הקוד וסגור את החלון Microsoft Visual Basic for Applications.

מעתה ואילך, בעת הפעלה מחדש של Outlook, כל התיקיות יורחבו אוטומטית ב- Outlook.הערות: VBA זה אינו יכול לפתוח את תיקיות החיפוש המכווצות בעת הפעלה מחדש של Outlook.


חץ כחול בועה ימיןמאמרים נוספים



Kutools עבור Outlook

יותר מ 100 פונקציות מתקדמות עבור Outlook 2010, 2013, 2016, 2019 ו- 365

צילומי מסך עבור. עבור באנר

תכונות נוספות | הורדה חינמית | רק 39.00 $ עבור מאות פונקציות

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 · 7 months ago
    Thank you so much.. It solved my problem. :)