Pliki cookie pomagają nam dostarczać nasze usługi. Korzystając z naszych usług, zgadzasz się na nasze pomocą plików cookie.
Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak otworzyć wszystkie podfoldery z Outlooka?

Jeśli utworzysz wiele podfolderów w folderach programu Outlook, jak możesz natychmiast otworzyć lub rozwinąć wszystkie te podfoldery? W tym artykule wprowadzę użyteczny kod VBA, aby rozwiązać tę pracę.

Otwórz lub rozwiń wszystkie podfoldery z programu Outlook za pomocą kodu VBA


Otwórz lub rozwiń wszystkie podfoldery z programu Outlook za pomocą kodu VBA

Zastosuj następujący kod VBA, aby rozwinąć wszystkie podfoldery ze wszystkich kont Outlooka:

1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujące makro w oknie modułu.

Kod VBA: otwórz wszystkie podfoldery z Outlooka:

Sub ExpandAllMailFolders () Dim xCurrentFolder Jako Folder Dim xAllFolders jako foldery Dim xFolder As Folder On Error Resume Next Set xCurrentFolder = Application.ActiveExplorer.CurrentFolder zestaw xAllFolders = Application.Session.Folders dla każdej xFolder W xAllFolders połączeń ProcessFolders (xFolder) Następny zestaw aplikacji. ActiveExplorer.CurrentFolder = xCurrentFolder End Sub Sub ProcessFolders (ByVal CurFolder W folderze) Dim xSubfolder As Folder On Error Resume Next Jeśli CurFolder.DefaultItemType <> olMailItem Następnie Exit Sub Ustaw Application.ActiveExplorer.CurrentFolder = CurFolder DoEvents Jeśli CurFolder.Folders.Count = 0 Następnie zakończ Sub dla każdego xSubfolder w CurFolder.Folders Call ProcessFolders (xSubfolder) Next End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie podfoldery na wszystkich kontach Outlooka zostały rozwinięte, patrz zrzut ekranu:

doc rozwiń podfoldery 1



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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.