Vba 添加签名后激发的事件

我正在写一个插件来更改合成邮件的签名。我试过私人助理检查员。这不起作用，因为在调用它时，签名尚未添加到邮件中，但邮件正文是我正在回复的原始邮件的邮件正文。 添加签名后，如何调用代码

我确实试过了

Private Sub inspectors_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector

及

在添加签名之前都会触发（我测试过，通过在Sub中添加一个MsgBox（mailItem.Body），我可以看到正文与我正在回复的邮件相同

编辑 激活-事件似乎不起作用-我尝试了：

    Public Sub inspector_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector)_
       Handles inspector.activate
        Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
        Msgbox("test activate has fired")
        If Not TypeOf MailItem Is Outlook.MailItem Then Exit Sub
     end sub

Thanks
Max

---

尝试使用Inspector.Activate事件-它会在Inspector可见后触发。

您是如何检索消息的？您使用Inspector.CurrentItem.Body吗？我选择了mailitem.Body，现在我也尝试了您的建议，但这会带来相同的结果。请稍候，您的Inspector\u Activate（）上面的事件处理程序处理Inspector.NewInspector事件，而不是Inspector.Activate！感谢您的帮助！我现在已经尝试了私有子Inspector_Activate（）处理Inspector.Activate，但根本不会触发…如何声明和初始化Inspector变量？

    Public Sub inspector_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector)_
       Handles inspector.activate
        Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
        Msgbox("test activate has fired")
        If Not TypeOf MailItem Is Outlook.MailItem Then Exit Sub
     end sub

Thanks
Max