Як пакетно очистити всі папки «Видалені» у всіх ваших облікових записах електронної пошти Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Якщо ви налаштували кілька облікових записів електронної пошти в Outlook і кожен обліковий запис використовує окремий файл даних Outlook, у вас буде кілька папок «Видалені». Якщо ви хочете очистити кожну папку «Видалені елементи» в кожному обліковому записі електронної пошти, ви можете використати фрагмент коду VBA в цій статті. Це дозволяє спорожнити їх навалом.

Як ми всі знаємо, Outlook дозволяє користувачам додавати та налаштовувати кілька облікових записів електронної пошти. Крім того, якщо кожен обліковий запис використовує окремий файл даних Outlook, кожен файл матиме папку «Видалені елементи», у якій зберігаються видалені елементи. Коли ви підтвердите, що елементи в усіх папках «Видалені» марні, ви, як правило, очистите папки. У цьому випадку, якщо ви вручну спустошите їх, це може бути дуже втомливим. Вам краще застосувати пораду, щоб випорожнити їх партіями, наприклад наступну.

Пакетне очищення всіх папок «Видалені» у всіх ваших облікових записах електронної пошти Outlook

Пакетне очищення всіх папок «Видалені» в усіх облікових записах електронної пошти

  1. З самого початку запустіть програму Outlook.
  2. Потім натисніть клавіші “Alt + F11” у головному вікні Outlook.
  3. Далі у вікні «Microsoft Visual Basic for Applications» потрібно відкрити порожній модуль.
  4. Згодом скопіюйте та вставте наступні коди VBA в цей модуль.
Sub BatchEmptyAllDeletedItemsFolder()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object
 
    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim i, n As Long
 
    If objCurrentFolder.Name = "Deleted Items" Then
       'Delete all the items in "Deleted Items" folder
       For i = objCurrentFolder.Items.Count To 1 Step -1
           objCurrentFolder.Items.Item(i).Delete
 
           'Delete all the subfolders under "Deleted Items" folder
           For n = objCurrentFolder.folders.Count To 1 Step -1
               objCurrentFolder.folders.Item(n).Delete
           Next
       Next
    End If
End Sub

Код VBA - пакетне очищення всіх папок «Видалені елементи» у всіх ваших облікових записах електронної пошти Outlook

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

У випадку корупції Outlook

Ви коли-небудь стикалися з аварійним завершенням роботи Outlook або навіть з пошкодженням Outlook? Взагалі, як ви будете розбиратися в жахливих випадках? Якщо ви користуєтеся Outlook десятиліттями, у вашому Outlook неминуче виникнуть різні проблеми. Тому вам краще запам’ятати деякі способи ремонту та відновлення, наприклад використання засобу відновлення папки «Вхідні», регулярне резервне копіювання даних Outlook, отримання надійної Виправлення в Outlook інструмент тощо. З усіма цими запобіжними заходами, навіть якщо ваш файл PST зламано, ви все одно можете зберігати спокій і легко знайти свої дані Outlook.

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

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

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

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