Как подсчитать количество папок в указанной учетной записи электронной почты или во всех почтовых ящиках Outlook?
В этой статье рассказывается, как подсчитать количество папок в указанной учетной записи электронной почты или во всех почтовых ящиках Outlook.
«Подсчёт количества папок в указанной учетной записи электронной почты или во всех почтовых ящиках с помощью кода VBA»
С помощью приведённого ниже кода VBA вы можете подсчитать количество папок в указанной учётной записи электронной почты или во всех почтовых ящиках. Выполните следующие действия.
1. Нажмите клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне «Microsoft Visual Basic for Applications» выберите «Insert» (Вставка) → «UserForm» (Пользовательская форма). См. снимок экрана:
3. Затем добавьте на «UserForm1» две кнопки-переключателя (Option Button) и две командные кнопки (Command Button), а также измените отображаемый текст кнопок, как показано на снимке экрана ниже.
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 Sub8. Нажмите клавишу «F5», чтобы запустить код. Откроется диалоговое окно «UserForm1». Чтобы подсчитать количество папок в текущей учетной записи, выберите переключатель «Current Account» (Текущая учетная запись) и нажмите кнопку «OK». Чтобы подсчитать количество папок во всех почтовых ящиках, выберите переключатель «All Accounts» (Все учетные записи) и нажмите кнопку «OK». См. снимок экрана:
9. Затем откроется диалоговое окно «Kutools для Outlook» с указанием количества папок в текущей учетной записи или во всех почтовых ящиках, как показано на снимке экрана ниже. Нажмите кнопку «OK».
Примечание: При подсчёте учитываются все скрытые папки, включая «Параметры действий с беседами» (Conversation Action Settings) и «Параметры быстрых шагов» (Quick Step Settings).
AI Mail Assistant в Outlook: умнее ответы, яснее общение (волшебство одним щелчком!)
Оптимизируйте повседневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook — мощного инструмента, который анализирует ваши прошлые письма, чтобы предлагать умные и точные ответы, улучшать содержание сообщений и помогать легко создавать и редактировать тексты.
Эта функция поддерживает:
- Умные ответы: получайте персонализированные, точные и готовые к отправке ответы, созданные на основе вашей прошлой переписки.
- Улучшенное содержание: автоматически повышайте ясность и выразительность текста письма.
- Легкое составление: просто укажите ключевые слова, а ИИ сделает всё остальное — с несколькими стилями письма на выбор.
- Интеллектуальные расширения: развивайте свои идеи с помощью контекстно-зависимых предложений.
- Суммаризация: мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: легко переводите свои письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики по ключевым словам
- Интеллектуальное расширение содержания
- Суммаризация писем
- Многоязыковой перевод
Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!
См. также:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек