2 быстрых способа навсегда удалить пустые папки в Outlook

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

По умолчанию при удалении папки Outlook всегда перемещает её в папку «Удалённые элементы». Однако чаще всего возникает желание навсегда удалить пустые папки, не перемещая их в папку «Удалённые элементы». Эта статья поможет вам это сделать.

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

Навсегда удалить пустые папки в Outlook

Способ 1: безвозвратно удалить папки с помощью «Shift + Delete»

  1. Сначала вам нужно дважды щелкнуть папку, которую вы хотите удалить.

Примечание: В Outlook 2010 вы должны убедиться, что выбранная папка выделена синим, а не серым цветом, как показано на следующем изображении.Выбор папки

  1. Затем нажмите клавиши «Shift + Delete».
  2. Далее вы получите предупреждение, показанное на скриншоте ниже.Предупреждение
  3. После этого нажмите кнопку «Да».
  4. Затем эта папка будет удалена навсегда. Вы не увидите его в папке «Удаленные».

Однако многие пользователи не привыкли использовать сочетание клавиш «Shift + Delete». Вместо этого они надеются, что Outlook может автоматически удалять пустые папки навсегда, даже если они удаляются стандартными средствами. В ответ на это требование здесь мы представим другой способ.

Способ 2: автоматическое удаление пустых папок навсегда с помощью VBA

  1. Для начала нажмите «Alt + F11», чтобы получить доступ к редактору VBA.
  2. Затем скопируйте следующий код VBA в проект ThisOutlookSession.
Public WithEvents objDeletedItemsFolder As Outlook.Folder
Public WithEvents objDeletedFolders As Outlook.Folders

Public Sub Application_Startup()
    'Get the "Deleted Items" folder in your default Outlook file
    Set objDeletedItemsFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
    Set objDeletedFolders = objDeletedItemsFolder.Folders
End Sub

'When a new folder being added to "Deleted Items" folder
Private Sub objDeletedFolders_FolderAdd(ByVal objFolder As Outlook.Folder)
    'If the folder is empty
    If objFolder.Items.Count = 0 Then
       'Delete it permanently
       objFolder.Delete
    End If
End Sub

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

  1. После этого перезапустите Outlook, чтобы активировать этот макрос.
  2. С тех пор каждый раз, когда вы удаляете папку, если папка пуста, она всегда будет удаляться безвозвратно.

Работа с частыми ошибками Outlook

Если вы применяли Outlook в течение довольно долгого времени, вы могли столкнуться с множеством неприятных проблем с Outlook. Неоспоримый факт, что Outlook подвержен ошибкам и искажениям. Вот почему Outlook предустановлен со встроенным инструментом исправления — Скэнпст. Он призван помочь пользователям решить большинство мелких проблем. Но, если вы столкнулись с очень серьезными проблемами, вам лучше воспользоваться более мощной утилитой, например DataNumen Outlook Repair.

Об авторе:

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

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

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