Cookies helpen ons onze services te leveren. Door gebruik te maken van onze diensten, gaat u akkoord met ons gebruik van cookies.
Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe open ik alle submappen vanuit Outlook?

Als u meerdere submappen maakt onder uw Outlook-mappen, hoe zou u dan al deze submappen onmiddellijk kunnen openen of uitbreiden? In dit artikel zal ik een nuttige VBA-code voor u introduceren om deze taak op te lossen.

Open of expandeer alle submappen uit Outlook met VBA-code


Open of expandeer alle submappen uit Outlook met VBA-code

Gelieve de volgende VBA-code toe te passen om alle submappen uit alle Outlook-accounts uit te breiden:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende macro in het modulevenster.

VBA-code: Open alle submappen vanuit Outlook:

Sub UitbreidingAllMailFolders () Dim xCurrentFolder As Map Dim xAllFolders As Folders Dim xFolder As Folder On Error Resume Volgende Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders voor elke xFolder In xAllFolders Call ProcessFolders (xFolder) Volgende Toepassing instellen. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder As Folder) Dim xSubfolder As Folder On Error Resume Next Als CurFolder.DefaultItemType <> olMailItem Then Exit Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents If CurFolder.Folders.Count = 0 Sluit vervolgens Sub voor elke xSubfolder in CurFolder.Folders Call ProcessFolders (xSubfolder) Next End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en alle submappen in alle accounts van uw Outlook zijn uitgebreid, zie screenshot:

doc expand subfolders 1



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

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.

Be the first to comment.