Question

我正在写一个插件来改变合成邮件的签名。我试过Private Sub inspectors_NewInspector。这不起作用，因为在调用此时，签名尚未添加到邮件中，但邮件正文是我正在回复的原始邮件的邮件正文。如何在添加签名后调用我的代码？

我确实尝试了

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

和

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

添加了firefor签名（我通过在Sub中添加了一个MsgBox（mailItem.Body）来测试，在那里我可以看到Body与我正在回复的邮件完全相同。

EDIT 激活 - 事件似乎不起作用 - 我试过：

    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

Answer 1

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

添加签名后触发的事件

1 个答案: