открыть/выполнить диалоговое флаг всплывающее окно пользовательского Outlook, с помощью VBA

Question

В Outlook 2013, если вы хотите добавить пользовательский флаг элемента вы получите этот диалог:

Я пытаюсь выяснить, как открыть этот диалог с помощью VBA? Я могу либо открыть его для выбранного элемента электронной почты, либо если есть способ открыть его напрямую и получить дату/данные, которые выбрал пользователь.

Answer 1

Вы можете имитировать нажатие кнопок с ExecuteMso

Private Sub AddReminderDialog_ExecuteMso() 

    Dim objItem As Object 

    On Error Resume Next 
    Set objItem = ActiveInspector.currentItem 
    On Error GoTo 0 

    If Err <> 0 Then 
     ActiveInspector.CommandBars.ExecuteMso ("AddReminder") 
    Else 
     ActiveExplorer.CommandBars.ExecuteMso ("AddReminder") 
    End If 

End Sub 

Вы можете увидеть «AddReminder» при наведении курсора на кнопку при добавлении к панели быстрого доступа или ленты.