Outlook截取电子邮件发送前通过粉色

问题描述：

Sage Pastel Evolution无法发送HTML格式的电子邮件，因此我试图在发送电子邮件之前拦截电子邮件，将必要信息添加到HTML格式的主题和正文中，然后发送它。Outlook截取电子邮件发送前通过粉色

这是我第一次尝试这样做，所以我把下面的简单代码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

遗憾的是，似乎没有什么，当我发送一封电子邮件要发生的事情，既不是通过进化，也没有通过外表。我错过了什么？

答

删除一切，只是尝试下面的代码，确保测试

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

答

如果你使用这种格式，你必须运行Initialize_Handler之前重新启动Outlook。

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

在ThisOutlookSession模块中。

Private Sub Application_Startup 
    Initialize_Handler 
End Sub

Outlook截取电子邮件发送前通过粉色

相关推荐