在通过 Pastel 发送之前拦截电子邮件答案

【问题标题】：Intercept Email Before Sent by Pastel在通过 Pastel 发送之前拦截电子邮件
【发布时间】：2017-05-10 07:42:27
【问题描述】：

Sage Pastel Evolution 无法发送 HTML 格式的电子邮件。

我正在尝试在电子邮件发送之前拦截它，以 HTML 格式向主题和正文添加信息。

我将以下内容放在ThisOutlookSession 模块中：

Option Explicit
    
Public WithEvents myOlApp As Outlook.Application
    
Public Sub Initialize_Handler()
    Set myOlApp = Outlook.Application
End Sub
    
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim sPrompt As String
      
    sPrompt = "Are you sure you want to send " & Item.Subject & "?"
    If MsgBox(sPrompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
        Cancel = True
    End If
End Sub

当我发送电子邮件时，无论是通过 Evolution 还是通过 Outlook，似乎都没有发生任何事情。

【问题讨论】：

标签： vba email outlook

【解决方案1】：

删除所有内容并尝试以下代码，确保在测试前重新启动 Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim prompt As String

    prompt = "Are you sure you want to send " & Item.subject & "?"

    If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
        Cancel = True
    End If
End Sub

【讨论】：

【解决方案2】：

如果你使用这种格式，你必须运行 Initialize_Handler。

如果您愿意，可以在 Outlook 启动时执行此操作，而不是手动运行。

在 ThisOutlookSession 模块中。

Private Sub Application_Startup
    Initialize_Handler
End Sub

【讨论】：