Как автоматически выделить важные электронные письма, на которые вы не ответили в Outlook

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

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

Вы когда-нибудь пропускали важные электронные письма и не отвечали на них вовремя? Если вы столкнулись с такими проблемами, возможно, вы надеетесь, что Outlook сможет выделить важные электронные письма, на которые вы не ответили. Далее мы расскажем вам, как добиться этого с помощью VBA. Если вы не знакомы с VBA, обратитесь к моей предыдущей статье — «Как запустить код VBA в Outlook" тем временем.

Автоматическое выделение важных писем, на которые вы не ответили

  1. В самом начале откройте редактор VBA через «Alt + F11» в Outlook.
  2. Затем в новом окне скопируйте приведенный ниже код в проект «ThisOutlookSession».
Private WithEvents objSentFolder As Outlook.Folder
Private WithEvents objSentMails As Outlook.Items
Private objInbox As Outlook.Folder

'On startup, auto update the replied status of the emails in Inbox
Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentMails = objSentFolder.Items
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Call UpdateRepliedStatus(objInbox)
End Sub

'After sending an email, auto update the replied status of the emails in Inbox
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       Call UpdateRepliedStatus(objInbox)
    End If
End Sub

Private Sub UpdateRepliedStatus(ByVal objFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objRepliedProperty As Outlook.UserProperty
    Dim strRepliedStatus As String
 
    'Write the replied status to a new user property of emails
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items(i).Class = olMail Then
           Set objMail = objFolder.Items(i)
 
           Set objRepliedProperty = objMail.UserProperties.Find("Replied", True)
           If objRepliedProperty Is Nothing Then
              Set objRepliedProperty = objMail.UserProperties.Add("Replied", olText, True)
           End If
 
           strRepliedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
           If (Not (strRepliedStatus = 102)) And (Not (strRepliedStatus = 103)) Then
              objRepliedProperty.Value = "No"
           Else
              objRepliedProperty.Value = "Yes"
           End If
 
           objMail.Save
        End If
    Next
End Sub

Код VBA - автоматическое обновление статуса ответов на электронные письма

  1. После этого переместите курсор в макрос «Application_Startup» и нажмите «F5».
  2. Позже закройте это окно.
  3. Затем выполните следующие действия, чтобы создать правило условного форматирования для элементов в папке «Входящие».
  • Прежде всего, перейдите в папку «Входящие».
  • Затем перейдите на вкладку «Вид» и нажмите «Настройки просмотра».
  • В новом диалоговом окне нажмите кнопку «Условное форматирование».«Условное форматирование»
  • В следующем диалоговом окне «Условное форматирование» нажмите «Добавить» и введите имя для нового правила, например «Важные электронные письма без ответов».Создать новое правило условного форматирования
  • Позже нажмите кнопку «Шрифт…» и установите стиль и цвет шрифта во всплывающем диалоговом окне «Шрифт».Установить шрифт
  • После указания шрифта нажмите «Условие…» в диалоговом окне «Условное форматирование».
  • Затем на экране «Фильтр» на вкладке «Дополнительно» добавьте два фильтра.
  1. «Важность» > «равно» > «Высокая»
  2. «Отвечено» > «(точно)» > «Нет»Добавить два фильтра
  • В конце концов, нажмите серию «ОК», чтобы сохранить это правило форматирования.
  1. После того, как вы вернетесь в папку «Входящие», все важные электронные письма, на которые вы не ответили, будут выделены определенным шрифтом и цветом.Выделенные важные письма, на которые вы не ответили

Не ленитесь в защите данных Outlook

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

Об авторе:

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

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

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