Přejít k hlavnímu obsahu

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 Sub

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

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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

karta kte 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations