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

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:

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.

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

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:

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".

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.

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:

• Jak wyświetlić okno dialogowe „Przeglądaj w poszukiwaniu folderu”, aby wybrać folder w programie Outlook?