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

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

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

Зберігання подібних електронних листів у певній папці електронної пошти є хорошою порадою для керування великою кількістю електронних листів. Зрозуміло, що різні користувачі повинні мати власні критерії класифікації та управління поштою. Наприклад, ви можете віддати перевагу класифікації своїх електронних листів відповідно до ваших подальших дій над ними, як-от відповідь, пересилання тощо. Якщо ви хочете автоматично перемістити електронний лист до певної папки, як-от «Переслано», під час його пересилання ви можете застосувати наведені нижче операції та коди VBA, щоб отримати його швидко.Папка «Переслано».

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

  1. Перш за все, запустіть Outlook.
  2. Потім перейдіть на вкладку «Розробник».

Примітка: Якщо ви не можете знайти цю вкладку, спочатку перейдіть до «Файл» > «Параметри» > «Налаштувати стрічку», щоб увімкнути її.

  1. Коли ця вкладка стане видимою, ви можете знайти та натиснути кнопку «Visual Basic» під нею.
  2. Згодом з’явиться нове вікно «Microsoft Visual Basic для програм». У ньому потрібно двічі клацнути проект «ThisOutlookSession» ліворуч, щоб відкрити його.
  3. Після цього ви можете скопіювати та вставити в нього наведені нижче коди VBA.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

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

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

Уникайте небажаного пошкодження даних Outlook PST

Один з нихost Проблема, яка мучила користувачів Outlook протягом тривалого часу, полягає в тому, що Outlook схильний до пошкодження. Тобто страждання PST пошкодження це звичайна справа. Тому, щоб запобігти втраті даних Outlook, вам краще створити послідовну та оновлену резервну копію ваших даних PST.

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

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

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

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