使用VBA打开/执行Outlook的自定义标志对话框弹出窗口

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

添加到快速访问工具栏或功能区时，将鼠标悬停在按钮上时可以看到“添加提醒”。