Jak policzyć liczbę folderów pod określonym kontem e-mail lub wszystkimi skrzynkami pocztowymi w Outlooku?
Ten artykuł dotyczy zliczania liczby folderów pod określonym kontem e-mail lub wszystkich skrzynek pocztowych w programie Outlook.
Policz liczbę folderów pod określonym kontem e-mail lub wszystkie skrzynki pocztowe z kodem VBA
Policz liczbę folderów pod określonym kontem e-mail lub wszystkie skrzynki pocztowe z kodem VBA
Możesz policzyć liczbę folderów pod określonym kontem e-mail lub wszystkie skrzynki pocztowe z poniższym kodem VBA. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Formularz użytkownika. Zobacz zrzut ekranu:
3. Następnie włóż dwa Przyciski opcji i dwa Przyciski poleceń najnowszych Formularz użytkownika1i zmień wyświetlany tekst przycisków, jak pokazano poniżej.
4. Zmień nazwę pierwszego przycisku opcji na „opbCurKonto”I zmienić wartość własność do Prawdziwy. Zobacz zrzut ekranu:
5. Zmień nazwę drugiego przycisku opcji na „opbWszystkie konta”. Następnie określ nazwę dwóch przycisków poleceń na „cdbOK" i "cdb Anuluj”Oddzielnie.
6. Kliknij dwukrotnie puste miejsce w UserForm1, a następnie zastąp oryginalny kod poniższym kodem VBA w oknie Userform1 (Code).
Kod VBA: Policz liczbę folderów w 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. wciśnij F5 klucz do uruchomienia kodu. Następnie Formularz użytkownika1 pojawi się okno dialogowe, w celu zliczenia ilości folderów na koncie bieżącym należy wybrać opcję Rachunek bieżący opcję i kliknij przycisk OK przycisk. Aby zliczyć liczbę folderów we wszystkich skrzynkach pocztowych, wybierz opcję Wszystkie konta opcję, a następnie kliknij przycisk OK przycisk. Zobacz zrzut ekranu:
9. Następnie a Kutools dla programu Outlook pojawi się okno dialogowe z informacją o liczbie folderów istniejących na bieżącym koncie lub we wszystkich skrzynkach pocztowych, jak na zrzucie ekranu. Proszę kliknąć OK przycisk.
Note: Wszystkie ukryte foldery, takie jak folder Ustawienia akcji konwersacji i folder Ustawienia szybkiego kroku, są uwzględniane w zliczaniu folderów.
Podobne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
