Hvordan tælles antallet af mapper under den angivne e-mail-konto eller alle postkasser i Outlook?
Denne artikel taler om at tælle antallet af mapper under den specificerede e-mail-konto eller alle postkasser i Outlook.
Tæl antallet af mapper under den specificerede e-mail-konto eller alle postkasser med VBA-kode
Tæl antallet af mapper under den specificerede e-mail-konto eller alle postkasser med VBA-kode
Du kan tælle antallet af mapper under den angivne e-mail-konto eller alle postkasser med nedenstående VBA-kode. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Brugerform. Se skærmbillede:
3. Indsæt derefter to Optionsknapper og to Kommando knapper ind Brugerformular1, og skift displayteksten på knapperne som vist nedenstående skærmbillede.
4. Skift navnet på den første valgknap til “opbCurAccount”Og skift værdi ejendom til Sand. Se skærmbillede:
5. Fortsæt med at ændre navnet på den anden valgknap til “opbAllAccounts”. Og angiv derefter navnet på de to kommandoknapper til "cdbOk"Og"cdb Annuller”Separat.
6. Dobbeltklik på et tomt sted i UserForm1, og udskift derefter den originale kode med nedenstående VBA-kode i vinduet Userform1 (Code).
VBA-kode: Tæl antallet af mapper 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. Tryk på F5 nøgle for at køre koden. Så a Brugerformular1 dialogboksen dukker op, for at tælle antallet af mapper på nuværende konto, vælg venligst Betalingsbalance valg og klik på OK knap. For at tælle antal mapper i alle postkasser skal du vælge Alle konti valgmulighed, og klik derefter på OK knap. Se skærmbillede:
9. Derefter a Kutools til Outlook dialogboksen dukker op for at fortælle dig, hvor mange mapper der findes i den nuværende konto eller alle postkasser som nedenfor skærmbillede. Klik venligst på OK .
Bemærk: Alle skjulte mapper såsom mappen Indstillinger for samtalehandling og mappen Indstillinger for hurtige trin er inkluderet i mappetællingen.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!