Question

在我发送的每封电子邮件中都添加了页脚。很好，直到在电子邮件末尾获得十二个相同页脚的实例为止。所以我一直在运行以下代码

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      
    Dim currMail As MailItem
    Dim msgStr As String
    Dim endStr As String
    Dim endStrStart As Long
      
    On Error GoTo Error_CalItem
    Set currMail = ActiveInspector.CurrentItem
    endStr = "CONFIDENTIALITY NOTICE: This e-mail message"
      
    msgStr = currMail.HTMLBody
    endStrStart = InStr(msgStr, endStr)
      
    If endStrStart > 0 Then
        currMail.HTMLBody = Left(msgStr, endStrStart - 1)
    End If
Error_CalItem:
    'Nothing
End Sub

自从我们切换到Office 365以来，它不再起作用。

问题是ActiveInspector没问题。通过以下方式确认：

Set oInspector = Application.ActiveInspector
If oInspector Is Nothing Then
    MsgBox "No active inspector"

Answer 1

您需要使用作为参数传递的实例：

db:5432

编辑触发ItemSend事件的电子邮件正文

1 个答案: