Outlook VBA宏ItemSent（在所有实例中都不起作用）

Question

我在Outlook的ThisOutlookSession中有一个宏，它检查在新的电子邮件主题中是否有特定的文本字符串 - 我们的一个客户的名称。它使用事件ItemSend。当我创建新电子邮件，输入收据，主题和内容时，它工作正常。如果在主题中没有在宏中指定文本，它会给出一条消息来纠正它。问题是如果我在文件上使用右键单击鼠标创建新邮件，并选择选项已发送到＆gt;＆gt;电子邮件收件人。在这种情况下，宏不会激活。你有任何提示，为什么它这样工作？ 我宏的代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Subject Like "*MyCustomer1*" Or Item.Subject Like "*MyCustomer2*" Then
Else
    If MsgBox("Wrong customer name," & vbCrLf & "do you wish to continue?", vbYesNo + vbDefaultButton2) = vbYes Then
    Else
         Cancel = True
         Customer_Names.Show
    End If End If End Sub