在我发送的每封电子邮件中都添加了页脚。很好,直到在电子邮件末尾获得十二个相同页脚的实例为止。所以我一直在运行以下代码
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"
答案 0 :(得分:0)
您需要使用作为参数传递的实例:
db:5432