Public WithEvents myOlApp As Outlook.Application
 
    Private Sub ThisAddIn_Startup() Handles Me.Startup
        SetOutlookConfig()
        inspectors = Me.Application.Inspectors
        myOlApp = Me.Application
    End Sub
 
    Private Sub myOlApp_ItemSend() Handles myOlApp.ItemSend
 
        MsgBox("Hello World")
    End Sub