Hogyan lehet megszámolni a mappák számát a megadott e-mail fiók vagy az összes postaláda alatt az Outlook programban?
Ez a cikk arról szól, hogy meg kell-e számolni a mappák számát a megadott e-mail fiók vagy az Outlook összes postafiókja alatt.
Számolja meg a megadott e-mail fiók mappáinak számát, vagy az összes VBA kóddal rendelkező postaládát
Megszámolhatja a megadott e-mail fiók alatti mappák számát, vagy az összes VBA kód alatti postaládát. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Felhasználói űrlap. Lásd a képernyőképet:
3. Ezután tegyen be kettőt Opció gombok és kettő Parancsgombok bele Felhasználói forma1, és változtassa meg a gombok megjelenítési szövegét az alábbi képernyőképen.
4. Változtassa az első opció gomb nevét “opbCurAccount”És változtassa meg a érték tulajdonhoz Igaz. Lásd a képernyőképet:
5. Folytassa a második opció gomb nevének megváltoztatásávalopbAllAccounts”. Ezután adja meg a két parancsgomb nevétcdbOk”És”cdbMégse”Külön-külön.
Kattintson duplán a UserForm6 bármely üres helyére, majd cserélje ki az eredeti kódot az alábbi VBA kódra a Userform1 (Kód) ablakban.
VBA-kód: Számolja meg az Outlook mappáinak számát
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 Sub8. megnyomni a F5 gombot a kód futtatásához. Aztán a Felhasználói forma1 megjelenik a párbeszédpanel, az aktuális fiók mappáinak számításához válassza a Folyószámla opciót és kattintson a OK gomb. Az összes postaládában lévő mappák számának megadásához válassza a ikont Minden fiók majd kattintson a OK gomb. Lásd a képernyőképet:
9. Ezután a Kutools az Outlook számára megjelenik a párbeszédpanel, amely megmondja, hogy az aktuális fiókban vagy az összes postafiókban hány mappa létezik, az alábbi képernyőképen. Kattintson a gombra OK gombot.
Megjegyzések: Minden rejtett mappa, mint például a Beszélgetési műveletek beállításai mappa és a Gyors lépés beállításai mappa szerepel a mappaszámlálásban.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
