Dim oApp As Outlook.Application
    Dim oNs As Outlook.NameSpace
    Dim oExp As Outlook.Explorer
 
	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
        Try
            oApp = CType(application, Outlook.Application) (1)
            oNs = oApp.GetNamespace("MAPI") (2) 
            oExp = oApp.ActiveExplorer (3)
 
            MessageBox.Show("huhu")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub