Как быстро удалить вложения из электронных писем старше определенной даты с помощью 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» и перейти к добавлению макроса на панель быстрого доступа. Выполните следующие действия:

• Во-первых, нажмите стрелку вниз на панели быстрого доступа и выберите «Дополнительные команды» в раскрывающемся списке.
• Затем вы должны выбрать «Макросы» в поле «Выбрать команды из».
• Затем выберите правильный макрос и нажмите кнопку «Добавить» в центре.
• Наконец, нажмите кнопку «ОК», чтобы включить его и вернуться в главное окно 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 повреждение мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com