Jak spočítat počet složek pod zadaným e-mailovým účtem nebo všemi poštovními schránkami v aplikaci Outlook?
Tento článek hovoří o počítání počtu složek pod zadaným e-mailovým účtem nebo všemi poštovními schránkami v aplikaci Outlook.
Spočítat počet složek pod zadaným e-mailovým účtem nebo všechny poštovní schránky s kódem VBA
Spočítat počet složek pod zadaným e-mailovým účtem nebo všechny poštovní schránky s kódem VBA
Můžete spočítat počet složek pod zadaným e-mailovým účtem nebo všechny poštovní schránky s níže uvedeným kódem VBA. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Formulář uživatele. Viz snímek obrazovky:
3. Poté vložte dva Volitelná tlačítka a dva Příkazová tlačítka do UserForm1a změňte text na displeji tlačítek, jak je uvedeno níže.
4. Změňte název prvního přepínače na „účet opbCur“A změňte hodnota majetek do Pravdivý. Viz snímek obrazovky:
5. Pokračujte ve změně názvu druhého přepínače na „opbAllAccounts“. A poté zadejte název dvou příkazových tlačítek na „cdbOk" a "cdbCancel„Samostatně.
6. Poklepejte na libovolné prázdné místo UserForm1 a poté v okně Userform1 (Code) nahraďte původní kód následujícím kódem VBA.
Kód VBA: Spočítá počet složek v 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 Sub8. zmáčkni F5 klíč ke spuštění kódu. Pak UserForm1 zobrazí se dialogové okno, pro počítání počtu složek na aktuálním účtu vyberte Běžný účet a klepněte na tlačítko OK knoflík. Pro počítání počtu složek ve všech schránkách zvolte Všechny účty a klepněte na tlačítko OK knoflík. Viz screenshot:
9. Pak a Kutools pro aplikaci Outlook zobrazí se dialogové okno, které vám řekne, kolik složek existuje v aktuálním účtu nebo ve všech poštovních schránkách, jak je uvedeno níže. Klikněte prosím na OK .
Poznámka: Všechny skryté složky, jako je složka Nastavení konverzačních akcí a složka Nastavení rychlého kroku, jsou zahrnuty do počítání složek.
Související články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
