Public Class Connect
    Implements Extensibility.IDTExtensibility2
 
    Friend WithEvents oApp As Outlook.Application
    Friend WithEvents oExp As Outlook.Explorer
 
    Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements _
      Extensibility.IDTExtensibility2.OnBeginShutdown
        MessageBox.Show("OnBeginShutdown")
    End Sub
 
    Public Sub OnAddInsUpdate(ByRef custom As System.Array) Implements _
      Extensibility.IDTExtensibility2.OnAddInsUpdate
        MessageBox.Show("OnAddInsUpdate")
    End Sub
 
    Public Sub OnStartupComplete(ByRef custom As System.Array) Implements _
      Extensibility.IDTExtensibility2.OnStartupComplete
        MessageBox.Show("OnStartupComplete")
    End Sub
 
    Public Sub OnDisconnection(ByVal RemoveMode As _
      Extensibility.ext_DisconnectMode, ByRef custom As System.Array) _
      Implements Extensibility.IDTExtensibility2.OnDisconnection
        MessageBox.Show("OnDisconnection")
    End Sub
 
    Public Sub OnConnection(ByVal application As Object, ByVal connectMode As _
      Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As _
      System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
        MessageBox.Show("OnConnection")
        Try
            oApp = CType(application, Outlook.Application)
            oExp = oApp.ActiveExplorer
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub oExp_Close() Handles oExp.Close
        MessageBox.Show("oExp_Close")
        oExp = Nothing
        oApp = Nothing
        Application.Exit()
    End Sub
End Class