Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

Как удалить все пустые папки в Outlook партией?

Author Kelly Last modified

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

Массовое удаление всех пустых папок в Outlook с помощью VBA


Массовое удаление всех пустых папок в Outlook с помощью VBA

Чтобы удалить все пустые подпапки определенной папки Outlook, выполните следующие действия:

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

2. Щелкните "Вставить" > "Модуль" и вставьте следующий код VBA в новое окно модуля.

VBA: Удалить все пустые подпапки определенной папки Outlook оптом

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then
If xFldr.Folders.Count < 1 Then
xFldr.Delete
xFlag = True
xCount = xCount + 1
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub
screenshot of VBA editor inserting code

3. Нажмите "F5" или щелкните кнопку "Выполнить", чтобы запустить этот код VBA.

4. В появившемся диалоговом окне Выбор папки выберите конкретную папку, пустые подпапки которой вы хотите удалить оптом, и нажмите кнопку "ОК".

screenshot selecting folder in Outlook

 

5. Теперь появится диалоговое окно Kutools для Outlook, показывающее, сколько пустых подпапок было удалено. Нажмите кнопку "ОК", чтобы закрыть его.

screenshot showing number of deleted folders

На данный момент все подпапки указанной папки Outlook были успешно удалены оптом.

screenshot after deleting empty folders

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

Найти папку (полный путь к папке) по имени папки в Outlook


Лучшие инструменты для повышения продуктивности работы с Office

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

Оцените обновленный Kutools для Outlook с более чем100 невероятными функциями! Нажмите, чтобы скачать прямо сейчас!

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

📨 Управление Email: Отозвать письмо / Блокировать вредоносные письма по теме и другим критериям / Удалить дубликаты / Расширенный Поиск / Организовать папки ...

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

🌟 Волшебство интерфейса: 😊Больше красивых и стильных эмодзи / Напоминание при поступлении важных писем / Свернуть Outlook вместо закрытия ...

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные / Удалить напоминание о дне рождения ...

Используйте Kutools на вашем языке – поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и более40 других!

Мгновенно активируйте Kutools для Outlook одним кликом. Не ждите – скачайте и улучшите свою эффективность прямо сейчас!

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

Скачайте сразу пять установщиков одним кликом — Kutools для Excel, Outlook, Word, PowerPoint и Office Tab Pro. Нажмите, чтобы скачать прямо сейчас!

  • Все просто: скачайте все пять установочных пакетов одним действием.
  • 🚀 Готово для любой задачи Office: Установите нужные дополнения тогда, когда они вам понадобятся.
  • 🧰 Включено: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools для PowerPoint