使用 Visual Studio 2013 创建 Outlook 插件（使用 ItemSend）

Question

我想要一个简单的 outlook 插件，在用户发送电子邮件之前询问用户。实际上我的代码编译但它不工作。你有什么想法吗？

谢谢

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

结束Class

Answer 1

您对 myOlApp_ItemSend 的声明必须包含 "Handles":

Private Sub myOlApp_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles myOlApp.ItemSend

使用 Visual Studio 2013 创建 Outlook 插件（使用 ItemSend）

Creating an Outlook Addin with Visual Studio 2013 (Using ItemSend)

outlook

visual-studio

outlook-addin

visual-studio-2013