Cookie-urile ne ajuta sa oferim serviciile noastre. Prin utilizarea serviciilor noastre, sunteți de acord cu utilizarea de cookie-uri.
Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se deschide toate subfolderele din Outlook?

Dacă creați mai multe subfoldere sub folderele Outlook, cum ați putut deschide sau extinde toate aceste subfoldere imediat? Acest articol, voi introduce un cod util VBA pentru a vă rezolva această slujbă.

Deschideți sau extindeți toate subfolderele din Outlook cu cod VBA


Deschideți sau extindeți toate subfolderele din Outlook cu cod VBA

Aplicați următorul cod VBA pentru a extinde toate subfolderele din toate conturile Outlook:

1. Țineți apăsată tasta ALT + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macrocomandă în fereastra Module.

Cod VBA: deschideți toate subdosarele din Outlook:

Sub ExpandAllMailFolders () Dim xCurrentFolder ca dosar Dim xAllFolders ca foldere Dim xFolder ca dosar la eroare Reluare Următorul set xCurrentFolder = Application.ActiveExplorer.CurrentFolder Set xAllFolders = Application.Session.Folders pentru fiecare xFolder în xAllFolders CallFolders (xFolder) Următorul set de aplicație. ActiveExplorer.CurrentFolder = xCurrentFolder Sfârșit Sub Sub Subfolders (ByVal CurFolder ca Folder) Dim xSubfolder Ca Folder La Eroare Reluați Următorul Dacă CurFolder.DefaultItemType <> olMailItem Apoi Exit Sub Set Aplicație.ActiveExplorer.CurrentFolder = CurFolder DoEvents Dacă CurFolder.Folders.Count = 0 Apoi Exit Sub pentru fiecare xSubfolder în CurFolder.Folders CallFolders apel (xSubfolder) Next End Sub

3. Apoi apăsați F5 cheia pentru a rula acest cod și toate subfolderele din toate conturile Outlook au fost extinse, a se vedea captura de ecran:

doc extinde subfoldere 1



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.