Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Aanmelden
x
or
x
x
REGISTEREN
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 voor Outlook - brengt 100 geavanceerde functies naar Outlook en maakt het werk veel eenvoudiger!

  • Auto CC / BCC door regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver en meer automatische functies ...
  • BCC-waarschuwing - laat een bericht zien als je alles probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinneren wanneer bijlagen ontbrekenen meer functies herinneren ...
  • Antwoord (Alle) Met alle bijlagen in het e-mailgesprek; Antwoord veel e-mails in seconden; Auto groet toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Bijlagehulpmiddelen: beheer alle bijlagen in alle e-mails, Automatisch ontkoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snelrapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Hiermee kunt u slimmer, sneller en beter doen in Outlook.
kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
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.
    Doug Fisher · 9 months ago
    I have been looking for this answer for a long time! Thank you.