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

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

Багато користувачів бажають перемістити певні електронні листи з Inbox в інші конкретні папки після їх прочитання, що забезпечить чистоту папки Inbox mail. Але завжди рухатися вручну буде громіздко. У цій статті буде розглянуто швидкий спосіб його автоматичного здійснення.

Як завжди, кожен вхідний електронний лист потрапляє до папки "Вхідні" в Outlook. Отже, у цьому випадку папка "Вхідні" буде захаращена і з часом буде заповнена. Найчастіше ви можете або вручну переміщати певні електронні листи в інші поштові папки, або створити правило Outlook для автоматичного переміщення певних електронних листів, як тільки вони надходять у вашу поштову скриньку. Застосовувати таке правило набагато зручніше, але вам потрібно перейти до певних папок, щоб отримати доступ до нових листів. Зіткнувшись з цією проблемою, ви можете сподіватися, що Outlook зможе автоматично переміщати певні електронні листи з Inbox в інші поштові папки після того, як ви прочитаєте їх у Inbox, а не після їх надходження. Але правило Outlook не може цього усвідомити. На щастя, ви можете використовувати Outlook VBA, щоб це здійснилося. Ось коди, а також складні кроки.

Автоматично переміщувати конкретні електронні листи до певних папок після їх прочитання

  1. З самого початку запустіть Outlook і перейдіть на вкладку «Розробник».
  2. Потім на цій вкладці натисніть кнопку «Visual Basic», щоб відкрити вікно редактора VBA.
  3. Далі у новому вікні ви повинні знайти проект “ThisOutlookSession” та двічі клацнути, щоб відкрити його.
  4. Потім скопіюйте та вставте в нього наступні коди VBA.
Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

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

  1. Після цього вам слід цифрово підписати цей код.
  • По-перше, використовуйте вбудований інструмент «Цифрові сертифікати для проектів VBA», щоб створити новий сертифікат.
  • Потім призначте цей сертифікат поточному макросу. Виконайте кроки, показані на зображенні нижче:Цифровий підпис поточного макросу
  1. Пізніше вам доведеться змінити налаштування макросів, щоб увімкнути лише макроси з цифровим підписом.
  2. Нарешті, вам слід перезапустити Outlook, щоб активувати цей проект VBA. Відтепер усі вхідні електронні листи все ще потраплятимуть до папки «Вхідні». Але щойно новий лист буде прочитано, він буде автоматично переміщено до відповідних папок.

Розумні хитрощі для вирішення проблем Outlook

Через те, що Outlook схильний до помилок, багато користувачів прагнуть розумних порад щодо вирішення поширених проблем. Зазвичай найпоширеніші методи включають створення нового поштового профілю, вимкнення сторонніх надбудов, відновлення пакета Office та використання засобу відновлення папки "Вхідні" Scanpst.exe. Якщо вбудований інструмент не спрацює, можна вдатися до іншого, потужнішого інструменту. пошкоджена утиліта відновлення Outlook -, Як DataNumen Outlook Repair.

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

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

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

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