Cum se deschid toate subfolderele din Outlook?
Dacă creați mai multe subfoldere sub folderele Outlook, cum ați putea deschide sau extinde imediat toate aceste subfoldere? În acest articol, voi introduce un cod VBA util pentru a rezolva această sarcină.
Deschideți sau extindeți toate subfolderele din Outlook cu cod VBA
Deschideți sau extindeți toate subfolderele din Outlook cu cod VBA
Vă rugăm să aplicați următorul cod VBA pentru a extinde toate subfolderele din toate conturile Outlook:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următoarea macro în fereastra modulului.
Cod VBA: Deschideți toate subfolderele din 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. Apoi apăsați F5 cheie pentru a rula acest cod și toate subfolderele din toate conturile Outlook dvs. au fost extinse, vedeți captura de ecran:
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.