我正在编写一个addin来改变组成邮件的签名。我尝试了私人子督察_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
.

既可以添加签名的火灾(我测试过,通过在子子里添加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事件 - 在检查器可见后它会触发。

许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top