打开/执行Outlook'；使用VBA弹出自定义标志对话框

在Outlook 2013中，如果要向项目添加自定义标志，将显示以下对话框：

---

我正在试图找出如何使用VBA打开此对话框？我可以为选定的电子邮件项目打开它，或者如果有办法直接打开它并检索用户选择的日期/数据。

您可以模拟用

Private子地址提醒Dialog_ExecuteMso（）
作为对象的Dim objItem
出错时继续下一步
设置objItem=ActiveInspector.currentItem
错误转到0
如果错误为0，则
ActiveInspector.CommandBars.ExecuteMso（“添加提醒”）
其他的
ActiveExplorer.CommandBars.ExecuteMso（“添加提醒”）
如果结束
端接头

---

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

您可以用

Private子地址提醒Dialog_ExecuteMso（）
作为对象的Dim objItem
出错时继续下一步
设置objItem=ActiveInspector.currentItem
错误转到0
如果错误为0，则
ActiveInspector.CommandBars.ExecuteMso（“添加提醒”）
其他的
ActiveExplorer.CommandBars.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