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

Рішення для Outlook Вересень 29, 2025

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

Щоб установити позначку швидкого клацання, ви можете клацнути правою кнопкою миші на стовпці «прапор» елемента та вибрати «Установити швидкий клік». Потім у спливаючому діалоговому вікні виберіть потрібний прапор. За замовчуванням Outlook застосує цей прапор швидкого клацання для всіх видів елементів. Тим не менш, насправді більшість користувачів сподіваються застосувати різні позначки швидкого клацання до різних типів елементів Outlook. Тому далі ми навчимо вас отримувати це на прикладі електронної пошти та контактів.

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

На самому початку сtart Редактор 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., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com