Как установить разные флаги быстрого клика для разных типов элементов Outlook

Перспективные решения 29 сентября, 2025

«Флажок быстрого щелчка» относится к флагу по умолчанию, когда вы один раз щелкаете столбец флага элемента Outlook. Outlook позволяет установить только один флаг быстрого щелчка независимо от типа элемента. Итак, если вы хотите установить разные флаги быстрого клика на основе типов элементов, вы можете использовать способ, представленный в этой статье.

Чтобы установить флажок быстрого щелчка, вы можете щелкнуть правой кнопкой мыши столбец «флаг» элемента и выбрать «Установить быстрый щелчок». Затем во всплывающем небольшом диалоговом окне выберите флажок по желанию. По умолчанию Outlook применяет этот флажок быстрого щелчка ко всем типам элементов. Тем не менее, в действительности большинство пользователей надеются применять разные флажки быстрого щелчка к разным типам элементов Outlook. Поэтому далее мы научим вас его получать на примере писем и контактов.

Установите разные флаги быстрого щелчка для разных типов элементов Outlook

В самом начале запустите редактор Outlook VBA, указав в качестве параметра «Как запустить код VBA в Outlook».
Затем скопируйте приведенный ниже код VBA в проект ThisOutlookSession.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

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)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

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

Выберите адрес электронной почты и щелкните столбец «Пометить». Сразу же к письму будет добавлен флажок «Завтра».
Затем укажите контакт и щелкните столбец «Пометить». Немедленно к выбранному контакту будет добавлен флажок «Сегодня».

Запретить вредоносные электронные письма

Хотя макросы вносят большой вклад в нашу работу в Outlook, вы все равно следите за макросами, особенно из внешних неизвестных электронных писем. Это связано с тем, что макросы могут содержать вирусы, которые могут легко атаковать ваши данные Outlook. После того, как ваш файл Outlook заражен, помимо уничтожения вирусов, вы должны восстановить файл Outlook. Как правило, инструмент восстановления папки «Входящие» не дает результатов. Ваше единственное средство — более влиятельная и кредитоспособная третья сторона. Исправление Outlook инструмент, такой как DataNumen Outlook Repair.

Об авторе:

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