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

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

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

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

Автоматично переміщувати електронні листи з різними кольоровими категоріями в різні папки в Outlook

Автоматично переміщувати електронні листи з різними кольоровими категоріями в різні папки

  1. Для початку запустіть програму Outlook.
  2. Потім у програмі Outlook натисніть кнопки Alt + F11 для доступу до редактора VBA.
  3. Згодом додайте наступний код VBA у проект “ThisOutlookSession”.
Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

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

Примітки:

  • Щоб обробити елементи в інших папках, ви можете змінити об’єкт “objInboxFolder”, наприклад “Application.Session.GetDefaultFolder (olFolderSentMail)” для папки “Відправлені”.
  • Також змініть категорії кольорів та цільові папки, попередньо визначені у наведеному вище коді, відповідно до ваших фактичних випадків.
  • Крім того, ви можете використовувати “ElseIf”, щоб додати інші необов’язкові категорії кольорів.
  1. Після цього перемістіть курсор у підпрограму «Application_Startup» та натисніть «F5», що активує цей макрос.
  2. Нарешті, ви можете зробити знімок. Ось мій приклад.
  • Виберіть електронну адресу в папці Вхідні.
  • Потім призначте йому категорію кольорів “Приватна”.Призначте електронну пошту кольорову категорію
  • Одразу цей лист буде переміщено до папки “Приватне” в розділі “Вхідні”.Електронна пошта автоматично переміщується до певної папки

Обережно працюйте з Outlook

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

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

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

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

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