Если вы хотите пакетно удалить все пустые подпапки в Outlook, вы можете использовать метод, представленный в этой статье. Он научит вас, как использовать Outlook VBA для пакетного удаления подпапок.
Чтобы лучше классифицировать электронные письма Outlook и управлять ими, вы должны создать множество настраиваемых подпапок в папках по умолчанию, независимо от папки «Входящие», «Отправленные» или «Черновики» и т. д. Однако иногда вы можете обнаружить, что некоторые подпапки не часто используются. Следовательно, мost времени, они пусты без каких-либо предметов. В этом случае вы надеетесь удалить все пустые подпапки.
Как правило, вы можете щелкнуть правой кнопкой мыши такую подпапку, а затем выбрать «Удалить папку» в контекстном меню. Тем не менее, если пустых подпапок много, удалять по одной будет довольно хлопотно. Поэтому вы должны долго ждать подсказки, чтобы удалить их все оптом. Хотя Outlook не предоставляет такой функции, вы все равно можете использовать код VBA, чтобы реализовать ее в кратчайшие сроки. Далее мы покажем вам подробные шаги и коды.
Пакетное удаление всех пустых подпапок
- В первую очередь, сtarв вашей программе Outlook.
- Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
- Далее в окне «Microsoft Visual Basic для приложений» откройте неиспользуемый модуль.
- Затем скопируйте и вставьте в этот модуль следующие коды VBA.
Public Sub GetAllSubfolders() Dim objFolders As Outlook.Folders Dim objFolder As Outlook.Folder Dim i As Long On Error Resume Next 'Изменить "Personal" на имя вашего файла данных Outlook Set objFolders = Outlook.Application.Session.Folders(" Personal").Folders For Each objFolder In objFolders Если objFolder.Folders.Count > 0, то For i = objFolder.Folders.Count To 1 Step -1 Call DeleteEmptyFolder(objFolder.Folders(i)) Next End If Next MsgBox ("Completed !") End Sub Public Sub DeleteEmptyFolder(objCurrentFolder As Outlook.Folder) Dim objSubFolder As Outlook.Folder Dim n As Long If objCurrentFolder.Items.Count = 0 Then objCurrentFolder.Delete End If 'Рекурсивно обрабатывать подпапки If objCurrentFolder.Folders.Count > 0 Затем для n = objCurrentFolder.Folders.Count равно 1 Шаг -1 Установите objSubFolder = objCurrentFolder.Folders(n) Вызовите DeleteEmptyFolder(objSubFolder) Next End If End Sub
- После этого измените уровень безопасности макросов Outlook на низкий.
- В конце концов вы можете запустить этот макрос, нажав кнопку «F5» в текущем окне макроса.
- Сразу же вы обнаружите, что все пустые подпапки будут удалены.
Получить поврежденные данные Outlook PST
Из-за того, что Outlook подвержен ошибкам и повреждениям, вам следует уделить внимание защите вашего файла Outlook PST. Например, вам следует периодически создавать резервные копии данных PST. Более того, чтобы восстановить Outlook проблемы как можно скорее, вы должны подготовить авторитетный и мощный инструмент исправления, такой как DataNumen Outlook Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com