öffnen/ausführen Outlook Custom Flag Dialog Popup mit VBA

Question

Sie in Outlook 2013, wenn Sie eine benutzerdefinierte Flagge auf ein Element hinzufügen möchten erhalten Sie diesen Dialog:

Ich versuche, herauszufinden, wie zu Öffnen Sie diesen Dialog mit VBA? Ich kann es entweder für eine ausgewählte E-Mail-Nachricht öffnen oder es gibt eine Möglichkeit, sie direkt zu öffnen und das vom Benutzer ausgewählte Datum/Daten abzurufen.

Answer 1

können Sie das Drücken von Tasten mit 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 

simulieren Sie können die „AddReminder“ sehen, wenn Sie über die Schaltfläche schweben, wenn auf die Schnellstartleiste oder einem Band hinzugefügt wird.