Cookies hjälper oss att leverera våra tjänster. Genom att använda våra tjänster samtycker du till vår användning av cookies.
Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur öppnas alla undermappar från Outlook?

Om du skapar flera undermappar under dina Outlook-mappar, hur kunde du öppna eller expandera alla dessa undermappar omedelbart? I den här artikeln kommer jag att presentera en användbar VBA-kod för att du ska kunna lösa detta jobb.

Öppna eller expandera alla undermappar från Outlook med VBA-kod


Öppna eller expandera alla undermappar från Outlook med VBA-kod

Vänligen använd följande VBA-kod för att expandera alla undermappar från alla Outlook-konton:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Infoga > Modulerna, och klistra in följande makro i modulfönstret.

VBA-kod: Öppna alla undermappar från Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder Som mapp Dim xAllFolders Som mappar Dim xFolder Som mapp på fel Fortsätt nästa uppsättning xCurrentFolder = Application.ActiveExplorer.CurrentFolder Ställ xAllFolders = Application.Session.Folders för varje xFolder i xAllFolders Call ProcessFolders (xFolder) Next Set Application. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder som mapp) Dim xSubfolder Som mapp på fel fortsätt nästa Om CurFolder.DefaultItemType <> olMailItem avsluta sedan Sub Set Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Om CurFolder.Folders.Count = 0 Därefter Avsluta del för varje xSubfolder I CurFolder.Folders Call ProcessFolders (xSubfolder) Nästa End Sub

3. Tryck sedan på F5 nyckeln för att köra den här koden och alla undermappar i alla konton i Outlook har blivit utökade, se skärmdump:

doc expandera undermappar 1



Kutools för Outlook

Mer än 100 avancerade funktioner för Outlook 2010, 2013, 2016, 2019 och 365

skärmsläckare kutools för outlook liten för banner 201812

Mer funktioner | Gratis nedladdning | Bara $ 39.00 för hundratals funktioner

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.