Как автоматически переименовывать или удалять старые электронные письма с теми же темами, что и новые входящие

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Некоторые люди надеются, что Outlook может автоматически проверять темы старых электронных писем, когда приходят новые электронные письма, и переименовывать или удалять старые электронные письма, если они имеют те же темы, что и новые электронные письма. Это требует использования Outlook VBA. Эта статья поможет вам достичь этого.

Вы, должно быть, когда-либо получали много писем с одинаковыми темами. Вам немного сложно идентифицировать и различать их в списке адресов электронной почты? Или вы думаете, что эти старые электронные письма совершенно бесполезны для вас? Если это так, вы должны позволить Outlook автоматически сканировать и проверять все существующие электронные письма при поступлении новых электронных писем. Когда есть электронные письма с теми же темами, что и новые, Outlook может спросить вас, переименовать или удалить их. Несомненно, Outlook не предоставляет пользователям такую ​​возможность. Следовательно, вы должны прибегнуть к VBA. Здесь мы предоставим вам подробные коды и операции.

Автоматическое переименование или удаление старых писем

  1. Сначала вы можете сtart Outlook и перейдите на вкладку «Разработчик».
  2. Затем вы сможете найти и нажать кнопку «Visual Basic».
  3. После нажатия вы получите доступ к окну редактора VBA. В нем вам нужно будет открыть проект ThisOutlookSession.
  4. Затем вы должны скопировать и вставить в него следующие коды VBA.
Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

Коды VBA - автоматическое переименование или удаление старых электронных писем с теми же темами, что и у новых входящих

  1. Впоследствии вам потребуется поставить цифровую подпись под этим кодом. Нажмите «Инструменты» > «Цифровая подпись». Затем во всплывающем диалоговом окне вы можете выбрать один существующий сертификат. Если нет готового сертификата, вы можете использовать «Цифровые сертификаты для проектов VBA», чтобы создать новый.Подпишите проект ThisOutlookSession
  2. После этого вы можете выйти из текущего окна и перейти к изменению настроек макроса, разрешая только макросы с цифровой подписью.
  3. В конце концов, вы можетеtar• Outlook, чтобы активировать новый макрос. Отныне, когда новые электронные письма поступают в папку «Входящие», Outlook будет автоматически проверять все существующие электронные письма.
  • Если старые электронные письма имеют ту же тему, что и новые, Outlook автоматически добавит суффикс «(старый)» к теме электронного письма.
  • И если старые электронные письма хранились в папке «Входящие» более 2 месяцев, вы получите подсказку с вопросом, хотите ли вы их удалить, как показано на рисунке ниже. Вы можете выбрать «Да» или «Нет» в зависимости от ваших собственных потребностей.Подсказка с вопросом, следует ли удалять старые электронные письма

 Повреждение файла Outlook из-за большого размера

У некоторых людей нет привычки регулярно удалять старые элементы в Outlook. Таким образом, их файл Outlook будет иметь большой размер, что точно нежелательно. Это связано с тем, что файл Outlook большого размера гораздо более уязвим, чем файл небольшого размера. Как только файл будет поврежден, встроенный инструмент восстановления Scanpst.exe будет беспомощен.ost случаи. Ваш уникальный курорт может быть замечательным и хорошо зарекомендовавшим себя поврежденный инструмент восстановления Outlook PST, Как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт поврежден SQL Server база данных мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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