Як швидко видалити вкладення з електронних листів, старших за певну дату, за допомогою Outlook VBA

Щоб зберегти поштову скриньку Outlook у невеликому розмірі та запобігти пошкодженню даних Outlook, пропонується видалити вкладення з електронних листів, які були отримані або надіслані певний період тому. Ця стаття допоможе вам швидко виконати це за допомогою Outlook VBA.

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

Видаліть вкладення з отриманих електронних листів, старших за визначену дату

1. Для початку відкрийте Outlook і перейдіть на вкладку «Розробник».
2. Потім натисніть кнопку “Visual Basic” у групі “Код”.
3. З'явиться нове вікно. У ньому слід відкрити новий модуль і скопіювати в нього наступні коди.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

4. Тепер ви можете вийти з поточного вікна «Visual Basic» та продовжити додавання макросу на панель швидкого доступу. Виконайте наведені нижче дії.

• По-перше, натисніть стрілку вниз на панелі швидкого доступу та виберіть «Більше команд» зі спадного списку.
• Потім слід вибрати “Макроси” в полі “Вибрати команди з”.
• Далі виберіть правильний макрос і натисніть кнопку «Додати» в центрі.
• Нарешті, натисніть кнопку «OK», щоб увімкнути її та повернутися до головного вікна Outlook.

5. Зрештою ви можете знайти та натиснути кнопку на панелі швидкого доступу. Вкладені файли в повідомленнях, які старіші за вказану дату, будуть швидко видалені.

Видаліть вкладення з надісланих електронних листів, старших за визначену дату

Для досягнення цієї мети ви можете скопіювати цілі коди VBA вище, але змінити деякі певні рядки, дотримуючись наведених нижче вказівок:

1. По-перше, змініть усі “olInbox” на “olSentItemFolder” у кодах VBA.
2. Потім замініть “Set olInbox = Session.GetDefaultFolder (olFolderInbox)” на:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Далі замініть “intDatDiff = DateDiff (“ d ”, varItem.ReceivedTime, Now)” на:

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Усуньте надокучливі помилки Outlook

Якщо ви використовували Outlook тривалий час, часті помилки, мабуть, стали загальним явищем. Очевидно, що ви не можете їх передбачити або повністю позбутися. Що ви можете зробити, це просто спробувати якнайкраще їх вирішити. Наприклад, скористайтеся інструментом відновлення папки "Вхідні", Scanpest.exe до виправити помилку електронної пошти Outlook -. Крім того, ви повинні регулярно робити резервні копії даних Outlook на випадок непередбачуваного збою.

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

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