我想要一个简单的外观插件,在发送电子邮件之前询问用户。实际上我的代码编译但它不起作用。你有什么想法吗?
由于
Public Class ThisAddIn
Public WithEvents myOlApp As Outlook.Application
Event ItemSend As AssemblyLoadEventHandler
Public Sub Initialize_handler()
myOlApp = Me.Application
End Sub
Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
Initialize_handler()
End Sub
Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, ByRef 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
结束班
答案 0 :(得分:2)
myOlApp_ItemSend的声明必须包含“Handles”:
Private Sub myOlApp_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles myOlApp.ItemSend