Jak policzyć liczbę podfolderów w określonym folderze w Outlooku?
Przypuśćmy, że utworzyłeś kilka folderów w folderze głównym. Teraz chcesz wiedzieć, ile podfolderów znajduje się w folderze głównym, jak możesz to zrobić? Wystarczy rozwinąć folder główny i ręcznie policzyć wszystkie podfoldery jeden po drugim? W tym artykule przedstawimy prostą metodę osiągnięcia tego celu.
Policz liczbę podfolderów z kodem VBA
Policz liczbę podfolderów z kodem VBA
Poniższy kod VBA może pomóc w policzeniu liczby podfolderów w określonym folderze głównym w programie Outlook. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: policz liczbę podfolderów w określonym folderze w Outlooku
Sub CountSubFldsUnderRootFolder()
Dim xRootFolder As Folder
Dim xFolderCount As Long
Dim xFolder As Object
On Error Resume Next
'Set xRootFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set xRootFolder = Outlook.Application.Session.PickFolder
If TypeName(xRootFolder) = "Nothing" Then Exit Sub
If xRootFolder.Folders.Count < 1 Then
MsgBox "No subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
Exit Sub
End If
For Each xFolder In xRootFolder.Folders
If xFolder.Name <> "Conversation Action Settings" And xFolder.Name <> "Quick Step Settings" Then
xFolderCount = xFolderCount + 1
Call ProcessFolders(xFolder, xFolderCount)
End If
Next
MsgBox xFolderCount & " subfolders under " & Chr(34) & xRootFolder.Name & Chr(34) & ".", vbInformation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(SubFolder As MAPIFolder, Num As Long)
Dim xSubFolder As MAPIFolder
On Error Resume Next
Num = Num + SubFolder.Folders.Count
For Each xSubFolder In SubFolder.Folders
Call ProcessFolders(xSubFolder, Num)
Next
End Sub3. wciśnij F5 klucz do uruchomienia kodu.
4. W otwarciu Wybierz folder wybierz folder, w którym policzysz jego podfoldery, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:
5. Następnie a Kutools dla programu Outlook pojawi się okno dialogowe informujące o liczbie podfolderów w określonym folderze. Zobacz zrzut ekranu:
Podobne artykuły:
- Jak policzyć liczbę folderów pod określonym kontem e-mail lub wszystkimi skrzynkami pocztowymi w Outlooku?
- Jak ujednolicić wszystkie skrzynki odbiorcze wielu kont, aby wyświetlać wszystkie wiadomości e-mail razem w Outlooku?
- Jak wyświetlić okno dialogowe „Przeglądaj w poszukiwaniu folderu”, aby wybrać folder w programie Outlook?
- Jak znaleźć brakujący folder, który został przypadkowo przeniesiony w Outlooku?
Najlepsze narzędzia biurowe
Najnowsze wiadomości: Kutools dla programu Outlook jest już dostępny w wersji bezpłatnej!
Poznaj zupełnie nową wersję Kutools dla programu Outlook BEZPŁATNĄ z ponad 70 niesamowitymi funkcjami, z których możesz korzystać NA ZAWSZE! Kliknij, aby pobrać teraz!
📧 Automatyzacja poczty e-mail: Automatyczna odpowiedź (dostępna dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Przypomnij sobie e-maile / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Advanced Search / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Przypomnij Ci, kiedy nadejdą ważne e-maile / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim z załącznikami / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
Używaj Kutools w swoim preferowanym języku – dostępny jest angielski, hiszpański, niemiecki, francuski, chiński i ponad 40 innych!
