כיצד לפתוח את כל התתי תיקיות מ-Outlook?

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

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

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

אנא החל את קוד ה-VBA הבא כדי להרחיב את כל תתי התיקיות מכל חשבונות ה-Outlook:

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

2. לחץ על הוספה > מודול, והדבק את המקרו הבא בחלון המודול.

קוד VBA: פתח את כל תתי התיקיות מ-Outlook:

Sub ExpandAllMailFolders()
    Dim xCurrentFolder As Folder
    Dim xAllFolders As Folders
    Dim xFolder As Folder
    On Error Resume Next
    Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder
    Set xAllFolders = Application.Session.Folders
    For Each xFolder In xAllFolders
        Call ProcessFolders(xFolder)
    Next
    Set Application.ActiveExplorer.CurrentFolder = xCurrentFolder
End Sub
Sub ProcessFolders(ByVal CurFolder As Folder)
    Dim xSubfolder As Folder
    On Error Resume Next
    If CurFolder.DefaultItemType <> olMailItem Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = CurFolder
    DoEvents
    If CurFolder.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFolder.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. לאחר מכן, לחץ על מקש F5 כדי להריץ את הקוד, וכל תתי התיקיות בכל חשבונות ה-Outlook שלך יוחזרו, ראה צילום מסך:

---

כלי הפרודוקטיביות הטובים ביותר ל-Office

חדשות חמות: Kutools עבור Outlook משיק גרסה חינמית!

התנסו בגרסה החינמית החדשה של Kutools עבור Outlook עם יותר מ-70 תכונות מדהימות, לשימושכם לתמיד! לחצו להורדה עכשיו!

🤖 Kutools AI : עושה שימוש בטכנולוגיית AI מתקדמת לניהול דואר אלקטרוני בקלות, כולל השבה, סיכום, אופטימיזציה, הרחבה, תרגום וכתיבת הודעות.

📧 אוטומציה של כתובת דואר אלקטרוני: תגובה אוטומטית (זמין עבור POP ו-IMAP) / תזמון שליחת כתובת דואר אלקטרוני / העתקה אוטומטית/עותק מוסתר לפי כלל בעת שליחת משלח אימייל / העברה אוטומטית (כלל מתקדם) / הוספת ברכה אוטומטית / פיצול אוטומטי של דואר אלקטרוני עם מספר נמענים להודעות נפרדות...

📨 ניהול כתובת דואר אלקטרוני: שלח מייל מחדש / חסום דואר אלקטרוני מזויף לפי נושא ואחרים / מחיקת דואר כפול / חיפוש מתקדם / ארגון תיקיות...

📁 קבצים מצורפים Pro: שמירה אצווה / פרידה אצווה / דחיסה אצווה / שמירה אוטומטית / נתק אוטומטית / דחיסה אוטומטית...

🌟 קסם הממשק: 😊עוד אימוגי יפים ומגניבים / קבלת תזכורת כאשר מגיע דואר אלקטרוני חשוב / מזעור Outlook במקום סגירה...

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

👩🏼‍🤝‍👩🏻 אנשי קשר ויומן: הוספת אנשי קשר מאצווה מתוך כתובת דואר אלקטרוני נבחרת / פיצול קבוצת אנשי קשר לקבוצות נפרדות / הסר תזכורת יומולדת...

פתחו מיד את Kutools עבור Outlook בלחיצה אחת. אל תחכו – הורידו עכשיו והגבירו את היעילות שלכם!

רשימת תכונות של Kutools עבור Outlook הורד גרסה חינמית שדרג לגרסה מקצועית