通过关闭事件打开邮件项目的“添加提醒”对话框

Question

我想在我关闭邮件项时获取后续标志对话框和类别对话框以设置提醒。
我试图从here 修改代码。当我关闭一个邮件项目时，一切都保持正常，我得到了类别对话框。我无法获得this 等后续标志的对话框。没有错误消息弹出。

Public WithEvents objInspector As Outlook.Inspector
Public WithEvents colInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Init_colInspectorsEvent
End Sub

Private Sub Application_ItemLoad(ByVal Item As Object)
    Init_colInspectorsEvent
End Sub

Private Sub Init_colInspectorsEvent()
    'Initialize the inspectors events handler
    Set colInspectors = Outlook.Inspectors
End Sub

Private Sub colInspectors_NewInspector(ByVal NewInspector As Inspector)
    If NewInspector.CurrentItem.Class = olMail Then MsgBox "New mail inspector is opened"
    If NewInspector.CurrentItem.Class = olTask Then MsgBox "New Task inspector is opened"
    If NewInspector.CurrentItem.Class = olContact Then MsgBox "New Contact inspector is opened"
    Set objInspector = NewInspector
End Sub

Private Sub objInspector_Close()
If objInspector.CurrentItem.Class = olMail Then 'MsgBox "Mail inspector is closing"
    objInspector.CurrentItem.ShowCategoriesDialog
    objInspector.CommandBars.ExecuteMso ("AddReminder") 'No error but not work
    objInspector.CurrentItem.Save
End If
End Sub

Answer 1

Outlook 对象模型不提供用于显示Add Reminder... 对话框的任何属性或方法。

您可以做的最好的事情是以编程方式执行内置控件：

CommandBars.ExecuteMso ("AddReminder")

但我认为Close 事件处理程序不适合处理此类事情。