Public Class ThisAddIn
 
    Private Sub ThisAddIn_Startup() Handles Me.Startup
        SetOutlookConfig()
        inspectors = Me.Application.Inspectors
    End Sub
 
    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown
 
    End Sub
 
 
    Private WithEvents inspectors As Outlook.Inspectors
 
    Private Sub inspectors_NewInspector(ByVal Inspector As _
      Microsoft.Office.Interop.Outlook.Inspector) Handles _
      inspectors.NewInspector
        Dim MyOlApp As New Outlook.Application
        Dim MymailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, _
          Outlook.MailItem)
 
        Dim myOlSel As Outlook.Selection = TryCast( _
          Inspector.Application.ActiveExplorer.Selection, Outlook.Selection)
 
 
        If Not MymailItem Is Nothing Then
            AddHandler MymailItem.Send, AddressOf mailItem_Send
        End If
    End Sub
 
 
    Private Sub mailItem_Send()
        If LiveEmailControl = True Then
            CheckEmailSubject()
        End If
    End Sub
 
 
End Class