Как пакетно удалить все пустые подпапки в вашем Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Если вы хотите пакетно удалить все пустые подпапки в Outlook, вы можете использовать метод, представленный в этой статье. Он научит вас, как использовать Outlook VBA для пакетного удаления подпапок.

Чтобы лучше классифицировать электронные письма Outlook и управлять ими, вы должны создать множество настраиваемых подпапок в папках по умолчанию, независимо от папки «Входящие», «Отправленные» или «Черновики» и т. д. Однако иногда вы можете обнаружить, что некоторые подпапки не часто используются. Следовательно, мost времени, они пусты без каких-либо предметов. В этом случае вы надеетесь удалить все пустые подпапки.

Пакетное удаление всех пустых подпапок в вашем Outlook

Как правило, вы можете щелкнуть правой кнопкой мыши такую ​​подпапку, а затем выбрать «Удалить папку» в контекстном меню. Тем не менее, если пустых подпапок много, удалять по одной будет довольно хлопотно. Поэтому вы должны долго ждать подсказки, чтобы удалить их все оптом. Хотя Outlook не предоставляет такой функции, вы все равно можете использовать код VBA, чтобы реализовать ее в кратчайшие сроки. Далее мы покажем вам подробные шаги и коды.

Пакетное удаление всех пустых подпапок

  1. В первую очередь, сtarв вашей программе Outlook.
  2. Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
  3. Далее в окне «Microsoft Visual Basic для приложений» откройте неиспользуемый модуль.
  4. Затем скопируйте и вставьте в этот модуль следующие коды VBA.
Public Sub GetAllSubfolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
    Dim i As Long
 
    On Error Resume Next
 
    'Change "Personal" to the name of your Outlook data file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        If objFolder.Folders.Count > 0 Then
           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
 
    'Process the subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For n = objCurrentFolder.Folders.Count To 1 Step -1
           Set objSubFolder = objCurrentFolder.Folders(n)
           Call DeleteEmptyFolder(objSubFolder)
       Next
    End If
End Sub

Код VBA - пакетное удаление всех пустых подпапок в вашем Outlook

  1. После этого измените уровень безопасности макросов Outlook на низкий.
  2. В конце концов вы можете запустить этот макрос, нажав кнопку «F5» в текущем окне макроса.
  3. Сразу же вы обнаружите, что все пустые подпапки будут удалены.

Получить поврежденные данные Outlook PST

Из-за того, что Outlook подвержен ошибкам и повреждениям, вам следует уделить внимание защите вашего файла Outlook PST. Например, вам следует периодически создавать резервные копии данных PST. Более того, чтобы восстановить Outlook проблемы как можно скорее, вы должны подготовить авторитетный и мощный инструмент исправления, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.