Przejdź do głównej zawartości

Jak policzyć liczbę folderów pod określonym kontem e-mail lub wszystkimi skrzynkami pocztowymi w Outlooku?

Autor: Silvia Ostatnia modyfikacja: 2025-04-18

Ten artykuł dotyczy zliczania liczby folderów pod określonym kontem e-mail lub wszystkich skrzynek pocztowych w programie Outlook.

Policz liczbę folderów pod określonym kontem e-mail lub wszystkie skrzynki pocztowe z kodem VBA


„Policz liczbę folderów w ramach określonego konta e-mail lub wszystkich skrzynek pocztowych za pomocą kodu VBA”

Możesz policzyć liczbę folderów pod określonym kontem e-mail lub wszystkie skrzynki pocztowe z poniższym kodem VBA. Wykonaj następujące czynności.

1. Naciśnij klawisze „Alt” + „F11”, aby otworzyć okno „Microsoft Visual Basic for Applications”.

2. W oknie „Microsoft Visual Basic for Applications” kliknij „Insert” > „Userform”. Zobacz zrzut ekranu:

liczba-dokumentów-liczba-folderów-1

3. Następnie wstaw dwa „Przyciski opcji” i dwa „Przyciski poleceń” do „UserForm1” i zmień wyświetlany tekst przycisków, jak pokazano na poniższym zrzucie ekranu.

liczba-dokumentów-liczba-folderów-2

4. Zmień nazwę pierwszego przycisku opcji na „opbCurAccount” i zmień właściwość „value” na „True”. Zobacz zrzut ekranu:

liczba-dokumentów-liczba-folderów-3

5. Kontynuuj zmianę nazwy drugiego przycisku opcji na „opbAllAccounts”. Następnie określ nazwy dwóch przycisków poleceń na „cdbOk” i „cdbCancel” oddzielnie.

6. Kliknij dwukrotnie puste miejsce w UserForm1, a następnie zastąp oryginalny kod poniższym kodem VBA w oknie Userform1 (Code).

Kod VBA: Policz liczbę folderów w Outlooku

Option Explicit
'Update by Extendoffice 20180504
Public xRet As Boolean
Private Sub cdbCancel_Click()
xRet = False
UserForm1.Hide
End Sub
Private Sub cdbOk_Click()
xRet = True
UserForm1.Hide
End Sub
7. Click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Count number of folders in Outlook
Function GetSubFolderCount(ParentFolder As Folder) As Long
    Dim xSubFolders As Folders
    Dim xCurFolder As Outlook.Folder
    Dim xFoldersCount As Integer
    On Error Resume Next
    Set xSubFolders = ParentFolder.Folders
    If xSubFolders.Count > 0 Then
       Set xCurFolder = xSubFolders.GetFirst
       While TypeName(xCurFolder) = "MAPIFolder"
          xFoldersCount = xFoldersCount + GetSubFolderCount(xCurFolder)
         Set xCurFolder = xSubFolders.GetNext
       Wend
       GetSubFolderCount = xFoldersCount + xSubFolders.Count
    Else
        GetSubFolderCount = 0
    End If
    End Function
    
    Sub CountFoldersInOutlook()
    Dim xNameSpace As NameSpace
    Dim xFolder As Folder
    Dim xAllFoldersCount As Long
    On Error Resume Next
    UserForm1.Show
    If UserForm1.xRet Then
        Set xNameSpace = Outlook.Application.Session
        If UserForm1.opbCurAccount.Value Then
            Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder.Store.GetRootFolder
            xAllFoldersCount = GetSubFolderCount(xFolder)
        ElseIf UserForm1.opbAllAccounts.Value Then
            For Each xFolder In xNameSpace.Folders
                xAllFoldersCount = xAllFoldersCount + GetSubFolderCount(xFolder)
            Next
        End If
    Else
        Exit Sub
    End If
    MsgBox "Total Folders: " & xAllFoldersCount, vbInformation + vbOKOnly, "Kutools for Outlook"
    End Sub

8. Naciśnij klawisz „F5”, aby uruchomić kod. Następnie pojawi się okno dialogowe „UserForm1”, aby policzyć liczbę folderów na bieżącym koncie, wybierz opcję „Bieżące konto” i kliknij przycisk „OK”. Aby policzyć liczbę folderów we wszystkich skrzynkach pocztowych, wybierz opcję „Wszystkie konta”, a następnie kliknij przycisk „OK”. Zobacz zrzut ekranu:

liczba-dokumentów-liczba-folderów-4

9. Następnie „Kutools for Outlook" pojawia się okno dialogowe informujące o liczbie folderów na bieżącym koncie lub wszystkich skrzynkach pocztowych, jak na poniższym zrzucie ekranu. Kliknij przycisk "OK".

liczba-dokumentów-liczba-folderów-5

Note: Wszystkie ukryte foldery, takie jak folder Ustawienia akcji konwersacji i folder Ustawienia szybkiego kroku, są uwzględniane w zliczaniu folderów.

AI Mail Assistant w programie Outlook: mądrzejsze odpowiedzi, wyraźniejsza komunikacja (magia jednego kliknięcia!) DARMOWE

Usprawnij codzienne zadania w programie Outlook dzięki asystentowi poczty AI Kutools for Outlook. To potężne narzędzie uczy się z Twoich poprzednich wiadomości e-mail, aby oferować inteligentne i dokładne odpowiedzi, optymalizować zawartość wiadomości e-mail i pomagać Ci bez wysiłku tworzyć i udoskonalać wiadomości.
uchwyt poczty e-mail doc AI

Ta funkcja obsługuje:

  • Inteligentne odpowiedzi: otrzymuj odpowiedzi przygotowane na podstawie poprzednich rozmów — dostosowane, precyzyjne i gotowe do użycia.
  • Ulepszona treść: automatycznie doprecyzuj tekst wiadomości e-mail, aby uzyskać przejrzystość i efekt.
  • Łatwa kompozycja: po prostu podaj słowa kluczowe, a sztuczna inteligencja zajmie się resztą, korzystając z wielu stylów pisania.
  • Inteligentne rozszerzenia: poszerzaj swoje przemyślenia dzięki sugestiom uwzględniającym kontekst.
  • Podsumowanie: natychmiastowe uzyskiwanie zwięzłych przeglądów długich e-maili.
  • Globalny zasięg: z łatwością tłumacz swoje e-maile na dowolny język.

Ta funkcja obsługuje:

  • Inteligentne odpowiedzi e-mailowe
  • Zoptymalizowana treść
  • Wersje robocze oparte na słowach kluczowych
  • Inteligentne rozszerzenie treści
  • Podsumowanie e-maila
  • Tłumaczenie na wiele języków

Co najlepsze, ta funkcja jest całkowicie za darmo na zawsze! Nie czekaj—pobierz teraz AI Mail Assistant i ciesz się!


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Kutools Doradca AI: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  odwołać się Kutools Funkcje...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej
Zastosowanie Kutools w wybranym przez Ciebie języku – obsługujemy język angielski, hiszpański, niemiecki, francuski, chiński i ponad 40 innych!

Udoskonal swoje umiejętności obsługi programu Excel dzięki Kutools for Exceli ciesz się wydajnością, jakiej nigdy dotąd nie doświadczyłeś. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...


Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!