Как автоматически установить одну и ту же цветовую категорию для всех писем в одном разговоре в Outlook

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

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

Чтобы лучше классифицировать электронные письма и управлять ими, вы можете использовать цветовые категории. Кроме того, если у вас много бесед, а именно потоков электронной почты в Outlook, чтобы лучше идентифицировать электронные письма в одной беседе, вы можете применить одни и те же цветовые категории ко всем письмам в одной беседе. Без сомнения, ручная установка цветовой категории для ветки электронной почты довольно утомительна. Поэтому, почему бы вам не позволить Outlook автоматически назначать ту же цветовую категорию остальным при категоризации электронной почты в беседе? Вы можете использовать фрагмент кода VBA, приведенный ниже, чтобы достичь этого без особых усилий.

Автоматически установите одну и ту же цветовую категорию для всех писем в одном разговоре в Outlook

Автоматически установите одну и ту же цветовую категорию для всех писем в одном диалоге

  1. В самом начале вы должны запустить приложение Outlook.
  2. Затем в главном окне Outlook нажмите клавиши «Alt + F11».
  3. Далее вы получите доступ к окну редактора Outlook VBA, в котором вам нужно найти и открыть проект «ThisOutlookSession».
  4. Затем скопируйте следующий код 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
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim objConversation As Outlook.Conversation
    Dim objStore As Outlook.Store
    Dim strCategories As String
 
    'When assigning color categories to the currently selected mail
    If Name = "Categories" Then
       strCategories = objMail.Categories
 
       Set objStore = objMail.parent.Store
 
       If objStore.IsConversationEnabled Then
          'Get the conversation
          Set objConversation = objMail.GetConversation
 
          If Not (objConversation Is Nothing) Then
             'Assign the same color categories to the mails in this conversation
             objConversation.SetAlwaysAssignCategories strCategories, objStore
          End If
       End If
    End If
End Sub

Код VBA — автоматическая установка одной и той же цветовой категории для всех писем в одном диалоге

  1. После этого следует подписать этот код.
  2. Позже вам нужно изменить параметры безопасности макросов Outlook, чтобы разрешить макросы с цифровой подписью.
  3. В конце концов, вы можетеtart ваше приложение Outlook, чтобы активировать этот макрос.
  4. Отныне каждый раз, когда вы назначаете какую-либо цветовую категорию одному письму в беседе, Outlook будет автоматически назначать ту же цветовую категорию остальным письмам в этой беседе.

Бережно относитесь к своему PST-файлу

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

Об авторе:

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

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

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