Як автоматично видалити електронні листи Outlook від конкретного відправника після певних днів

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

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

Що стосується автоматичного видалення електронних листів, спочатку ви можете подумати про функцію «Автоархівувати». Однак він не може фільтрувати конкретних відправників під час автоматичного архівування електронних листів. Тому, наприклад, якщо ви хочете автоматично видалити електронні листи від конкретного відправника через x днів, вам слід скористатися іншими способами, такими як наступний.

Автоматично видаляти електронні листи від конкретного відправника через X днів

  1. На самому початку запустіть програму Outlook.
  2. Потім запустіть редактор Outlook VBA відповідно до “Як запустити код VBA у своєму Outlook».
  3. Далі скопіюйте наступний код VBA у проект “ThisOutlookSession”.
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

Код VBA - Автоматичне видалення електронних листів від конкретного відправника через певні дні

  1. Після цього перезапустіть Outlook, щоб активувати цей макрос.
  2. Відтоді кожного разу, коли нове повідомлення електронної пошти від конкретного відправника надходить у папку "Вхідні", йому призначається певний час закінчення - конкретні дні після його отримання.Автоматично доданий час закінчення терміну дії
  3. Потім щоразу, коли ви запускаєте Outlook, Outlook автоматично перевірятиме та видалятиме листи з простроченим терміном дії від певного відправника.Автоматично видалено електронні листи, що минули, від конкретного відправника

Відновлення даних Outlook після корупції

Можливо, ви стикалися з різноманітними помилками та проблемами в Outlook. Потім, чи стикалися ви з корупцією в Outlook? Наприклад, якщо ви часто неправильно виходите з Outlook, ваш файл PST, як правило, пошкоджується. Як правило, у такому випадку ви можете вибрати отримання даних Outlook із резервних копій. Або ви можете або використовувати інструмент для ремонту вхідних - або надійний зовнішній інструмент, такий як DataNumen Outlook Repair.

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

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

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

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