ouvert/Execute pop-up de dialogue flag Custom Outlook avec VBA

Question

dans Outlook 2013, si vous souhaitez ajouter un drapeau personnalisé à un élément que vous obtenez cette boîte de dialogue:

J'essaie de comprendre comment ouvrir cette boîte de dialogue en utilisant VBA? Je peux l'ouvrir pour un élément de courrier électronique sélectionné ou s'il y a un moyen de l'ouvrir directement et de récupérer la date/les données sélectionnées par l'utilisateur.

Answer 1

Vous pouvez simuler la pression des touches avec 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 

Vous pouvez voir le « AddReminder » lorsque vous passez la souris sur le bouton lors de l'ajout à la barre d'accès rapide ou un ruban.