小编Coc*_*key的帖子

下面的脚本效果很好，但每次打开 Outlook 时我都必须手动运行 Initialize_handler 例程才能使其工作。

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub myOlApp_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

就我所看到的自动完成这项工作而言，我应该能够将以下脚本添加到 ThisOutlookSession。但是，这不起作用，我不知道为什么。

我的宏安全设置正确，它在启动时运行代码，但由于某种原因它不起作用，直到我手动打开 VBA 编辑器单击 Initialize_handler 并按 F5。

Private Sub Application_Startup()
  Initialize_handler
End Sub