Как подсчитать количество папок в указанной учетной записи электронной почты или всех почтовых ящиках в Outlook?
В этой статье говорится о подсчете количества папок в указанной учетной записи электронной почты или всех почтовых ящиках в Outlook.
Подсчитайте количество папок в указанной учетной записи электронной почты или всех почтовых ящиках с кодом VBA
Вы можете подсчитать количество папок в указанной учетной записи электронной почты или всех почтовых ящиках с указанным ниже кодом VBA. Пожалуйста, сделайте следующее.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Пользовательская форма. Смотрите скриншот:
3. Затем вставьте два Кнопки выбора и два Командные кнопки в Пользовательская форма1и измените отображаемый текст кнопок, как показано на скриншоте ниже.
4. Измените название первой кнопки выбора на «opbCurAccount»И измените ценностное собственность на Правда. Смотрите скриншот:
5. Продолжайте изменять название второй кнопки выбора на «opbAllAccounts». А затем укажите название двух командных кнопок на «cdbОк" а также "cdbОтменить" по отдельности.
6. Дважды щелкните любое пустое место UserForm1, а затем замените исходный код приведенным ниже кодом VBA в окне Userform1 (Код).
Код VBA: подсчитать количество папок в 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. нажмите F5 ключ для запуска кода. Потом Пользовательская форма1 появится диалоговое окно, для подсчета количества папок в текущей учетной записи выберите счет текущих операций и нажмите OK кнопка. Для подсчета количества папок во всех почтовых ящиках выберите Все аккаунты и нажмите OK кнопка. Смотрите скриншот:
9. Затем Kutools for Outlook Появится диалоговое окно, в котором указано, сколько папок существует в текущей учетной записи или во всех почтовых ящиках, как показано на скриншоте ниже. Пожалуйста, нажмите на OK .
Внимание: Все скрытые папки, такие как папка «Параметры действий при разговоре» и папка «Параметры быстрого действия», включаются в подсчет папок.
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!