Як швидко видалити кілька папок пошти Outlook у партіях

Поділитися зараз:

Безсумнівно, дуже легко видалити одну папку пошти в Outlook. Але якщо ви хочете видалити декілька папок пошти, видалення їх окремо буде досить громіздким. У цій статті ми допоможемо вам видалити їх групами.

Як зазвичай, коли ви збираєтеся видалити одну папку пошти, доступні два способи. Як показано на наступному скріншоті, один з них полягає в тому, що ви можете натиснути цю папку правою кнопкою миші, а потім вибрати “Видалити папку” з контекстного меню. Інший - перейти на вкладку «Папка» та натиснути кнопку «Видалити папку».

Видаліть папку однієї пошти

Очевидно, що обидва вони досить прості. Однак, якщо ви використовуєте або для видалення декількох папок, це буде досить клопітно. Багато користувачів заявляють, що бажають видалити кілька папок за один раз. Якщо всі ці папки є підпапками в певній папці, як на малюнку вище, ви дійсно можете використовувати Outlook VBA, щоб видалити їх одним клацанням миші. Але якщо ні, то потрібно докласти додаткових зусиль. Читайте далі, щоб отримати їх детально.

Якщо ці папки є підпапками під певною папкою

  1. Для початку запустіть Outlook.
  2. Потім натисніть комбінації клавіш “Alt + F11”, щоб відкрити редактор VBA.
  3. Далі у спливаючому вікні вам слід відкрити модуль, який не використовується, або вставити новий модуль за допомогою «Вставка»> «Модуль».
  4. Згодом вам потрібно скопіювати в нього наступні коди.
Sub DeleteMultipleFolders()
    Dim objCurrentFolder As Folder
    Dim objSubFolders As Folders
    Dim i As Long
 
    On Error Resume Next
 
    Set objCurrentFolder = Outlook.Application.ActiveExplorer.CurrentFolder
    Set objSubFolders = objCurrentFolder.Folders
 
    For i = objSubFolders.Count To 1 Step -1
        objSubFolders.Item(i).Delete
    Next
End Sub

Коди VBA - Видаліть усі підпапки одним рухом

  1. Після цього ви можете вийти з поточного вікна та додати новий макрос на панель швидкого доступу.Додайте новий проект на панель швидкого доступу
  2. Нарешті можна спробувати.
  • Спочатку оберіть основну папку.
  • Потім натисніть кнопку макросу на панелі швидкого доступу.Видаліть усі підпапки через VBA
  • Одразу всі підпапки будуть видалені.

Вищевказаний фокус буде значно зручним, якщо ці папки є усіма підпапками певної папки. Але якщо папки, які потрібно видалити, знаходяться під різними папками, вам потрібно виконати деякі додаткові операції. Виконайте наведені нижче дії.

Якщо ці папки не є підпапками в певній папці

  1. Для початку створіть нову папку під назвою «Temp».
  • По-перше, подайте правильний файл PST.
  • Потім натисніть кнопку «Нова папка» на вкладці «Папка».
  • Далі введіть “Temp” у полі “Name”.
  • Зрештою, натисніть кнопку «ОК».Створіть нову тимчасову папку
  1. Згодом вам потрібно перетягнути папки, які ви збираєтеся видалити, до папки “Temp”.Перетягніть папки, які потрібно видалити, до тимчасової папки
  2. Після того, як усі ці папки будуть переміщені та розміщені в папці «Temp», ви можете скористатися макросом, згаданим у першому розділі, щоб видалити всі ці вкладені папки під «Temp».

Ніколи не натискайте посилання в невідомих електронних листах

Окрім власних макросів, слід обережно ставитися до всіх зовнішніх макросів, оскільки вони можуть містити віруси. Як зазвичай, ці шкідливі макроси маскуються як нешкідливі посилання в електронних листах. Отже, якщо ви не можете визначити відправника електронного листа, краще не завантажуйте його вкладення або не клацайте на його посиланнях. В іншому випадку ваші дані Outlook, швидше за все, заражаться. Тим самим, щоб відновити ваш корумпований Outlook даних, інструмент вхідних, Scanpst.exe, не буде корисним. Вам потрібно вдатися до зовнішнього інструменту, такого як DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт кв та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

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