Как автоматически перемещать электронные письма с разными цветовыми категориями в разные папки в 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

Примечание:

• Для обработки элементов в других папках вы можете изменить объект «objInboxFolder», например «Application.Session.GetDefaultFolder(olFolderSentMail)» для папки «Отправленные».
• Кроме того, измените предопределенные в приведенном выше коде цветовые категории и целевые папки в соответствии с вашими реальными задачами.
• Кроме того, вы можете использовать «ElseIf», чтобы добавить другие дополнительные цветовые категории.

4. После этого переместите курсор в подпрограмме «Application_Startup» и нажмите «F5», чтобы активировать этот макрос.
5. Наконец, вы можете сделать снимок. Вот мой пример.

• Выберите письмо в папке «Входящие».
• Затем назначьте ему цветовую категорию «Частная».
• Сразу же эта почта будет перемещена в папку «Личная» в разделе «Входящие».

Бережно относитесь к своему прогнозу

Возможно, вы столкнулись с несколькими проблемами в Outlook. Чаще всего они на самом деле возникают из-за вашего неправильного обращения. Например, вы всегда неправильно закрываете Outlook, например, при внезапном отключении питания. Или вы не создавали резервные копии данных Outlook через регулярные промежутки времени. Все подобные действия могут сделать ваш Outlook гораздо более уязвимым. Как вы знаете, после повреждения файла PST восстановить его крайне сложно. В целом, инструмент для ремонта входящих не даст эффектов. У вас нет другого выбора, кроме как воспользоваться помощью внешних первоклассных утилит, таких как DataNumen Outlook Repair.

Об авторе:

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