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

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

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

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

Тексты флажков по умолчанию в отмеченных элементах

Настройте тексты флажков в отмеченных элементах

  1. Для насtart, измените настройки макроса в соответствии с “Как запустить код VBA в Outlook».
  2. Затем нажмите «Alt + F11», чтобы получить доступ к редактору VBA.
  3. Затем откройте проект ThisOutlookSession и вставьте следующий код.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
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 objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.currentItem.Class = olMail Then
       Set objMail = Inspector.currentItem
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strFlagRequest As String
 
    If Name = "FlagStatus" Then
       If objMail.IsMarkedAsTask = True Then
          If objMail.FlagStatus <> olFlagComplete And objMail.FlagStatus <> olNoFlag Then
             'Enter your preferred note
             objMail.FlagRequest = "Custom Flag texts"
             objMail.Save
         End If
       End If
    End If
End Sub

Код VBA — настройка текстов флагов в отмеченных элементах

  1. После этого резtart ваш Outlook, чтобы активировать этот макрос.
  2. Наконец, вы можете попробовать.
  • Прежде всего, выберите или откройте элемент Outlook.
  • Затем отметьте его, как обычно.
  • Сразу же вы увидите пользовательские тексты флажков, назначенные этому элементу, как показано на следующем рисунке.Пользовательские тексты флажков в отмеченных элементах

Что делать, если файл PST становится недоступным

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

Об авторе:

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

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

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