Как подсчитать количество папок в указанной учетной записи электронной почты или во всех почтовых ящиках в Outlook?

В этой статье рассказывается о подсчете количества папок в указанной учетной записи электронной почты или во всех почтовых ящиках в Outlook.

Подсчет количества папок в указанной учетной записи электронной почты или во всех почтовых ящиках с помощью кода VBA

«Подсчет количества папок в указанной учетной записи электронной почты или во всех почтовых ящиках с помощью кода VBA»

Вы можете подсчитать количество папок в указанной учетной записи электронной почты или во всех почтовых ящиках с помощью приведенного ниже кода VBA. Пожалуйста, действуйте следующим образом.

1. Нажмите клавиши «Alt» + «F11», чтобы открыть окно «Microsoft Visual Basic для приложений».

2. В окне «Microsoft Visual Basic для приложений» нажмите «Вставить» > «Userform». См. скриншот:

3. Затем вставьте две кнопки «Option Buttons» и две кнопки «Command Buttons» в «UserForm1» и измените текст на кнопках, как показано на скриншоте ниже.

4. Измените имя первой кнопки опции на «opbCurAccount» и измените свойство «value» на «True». См. скриншот:

5. Продолжайте изменять имя второй кнопки опции на «opbAllAccounts». Затем укажите имена двух командных кнопок как «cdbOk» и «cdbCancel» соответственно.

6. Дважды щелкните любое пустое место UserForm1, а затем замените исходный код приведенным ниже кодом VBA в окне Userform1 (Code).

Код 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», чтобы запустить код. Затем появится диалоговое окно «UserForm1». Для подсчета количества папок в текущей учетной записи выберите опцию «Текущая учетная запись» и нажмите кнопку «OK». Для подсчета количества папок во всех почтовых ящиках выберите опцию «Все учетные записи» и нажмите кнопку «OK». См. скриншот:

9. Затем появится диалоговое окно «Kutools для Outlook», которое сообщит вам, сколько папок существует в текущей учетной записи или во всех почтовых ящиках, как показано на скриншоте ниже. Пожалуйста, нажмите кнопку «OK».

Примечание: Все скрытые папки, такие как папка Настройки действий беседы и папка Настройки быстрых шагов, включены в подсчет папок.

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.

Эта функция поддерживает:

• Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
• Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
• Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
• Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
• Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
• Глобальный охват: Легко переводите ваши письма на любой язык.

Эта функция поддерживает:

• Умные ответы на письма
• Оптимизированное содержание
• Черновики на основе ключевых слов
• Интеллектуальное расширение содержания
• Краткое изложение писем
• Перевод на несколько языков

Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь

Связанные статьи:

• Как отобразить диалоговое окно «Обзор папок» для выбора папки в Outlook?