Hur räknar man antalet mappar under angivet e-postkonto eller alla postlådor i Outlook?

Den här artikeln talar om att räkna antalet mappar under angivet e-postkonto eller alla postlådor i Outlook.

Räkna antalet mappar under angivet e-postkonto eller alla brevlådor med VBA-kod

"Count number of folders under specified email account or all mailboxes with VBA code"

Du kan räkna antalet mappar under angivet e-postkonto eller alla brevlådor med VBA-koden nedan. Gör så här.

1. Tryck på tangenterna "Alt" + "F11" för att öppna fönstret "Microsoft Visual Basic for Applications".

2. In the "Microsoft Visual Basic for Applications" window, click "Insert" > "Userform". See screenshot:

3. Then insert two "Option Buttons" and two "Command Buttons" into "UserForm1", and change the display text of the buttons as below screenshot shown.

4. Change the name of the first option button to “opbCurAccount" and change the "value" property to "True". See screenshot:

5. Go on changing the name of the second option button to "opbAllAccounts". And then specify the name of the two command buttons to "cdbOk” and ”cdbCancel" separately.

6. Dubbelklicka på en tom plats i UserForm1 och ersätt sedan den ursprungliga koden med nedanstående VBA-kod i fönstret Userform1 (Code).

VBA-kod: Räkna antalet mappar i Outlook

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. Press the "F5" key to run the code. Then a "UserForm1" dialog box pops up, for counting number of folders in current account, please select the "Current Account" option and click the "OK" button. For counting number of folders in all mailboxes, choose the "All Accounts" option and then click the "OK" button. See screenshot:

9. Then a "Kutools for Outlook" dialog box pops up to tell you how many folders existing in current account or all mailboxes as below screenshot. Please click the "OK" button.

Anmärkningar: Alla dolda mappar som mappen Conversation Action Settings och Quick Step Settings-mappen ingår i mappräkningen.

AI Mail Assistant i Outlook: Smartare svar, tydligare kommunikation (magi med ett klick!) FRI

Effektivisera dina dagliga Outlook-uppgifter med AI Mail Assistant från Kutools för Outlook. Det här kraftfulla verktyget lär sig av dina tidigare e-postmeddelanden för att erbjuda intelligenta och korrekta svar, optimera ditt e-postinnehåll och hjälpa dig att skapa och förfina meddelanden utan ansträngning.

Den här funktionen stöder:

• Smarta svar: Få svar skapade från dina tidigare konversationer – skräddarsydda, exakta och redo att gå.
• Förbättrat innehåll: Förfina automatiskt din e-posttext för tydlighet och effekt.
• Enkel komposition: Ange bara nyckelord och låt AI hantera resten, med flera skrivstilar.
• Intelligenta tillägg: Utöka dina tankar med kontextmedvetna förslag.
• Sammanfattning: Få kortfattade översikter av långa e-postmeddelanden direkt.
• Global räckvidd: Översätt dina e-postmeddelanden till valfritt språk med lätthet.

Den här funktionen stöder:

• Smarta e-postsvar
• Optimerat innehåll
• Sökordsbaserade utkast
• Intelligent innehållstillägg
• E-postsammanfattning
• Flerspråkig översättning

Det bästa av allt är att den här funktionen är helt kostnadsfria evigt! Vänta inte -ladda ner AI Mail Assistant nu och njut!

Relaterade artiklar:

• Hur visar jag en dialogruta "Bläddra efter mapp" för att välja en mapp i Outlook?