Imports Microsoft.Office.Tools.Ribbon

Public Class rbnMailItem
    Dim LOGIN_OK As Boolean = False
    Public Shared Event bla()
    Private Sub rbnMailItem_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
        LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
    End Sub
    Private Function CreateRibbonDropDownItem() As RibbonDropDownItem
        Return Me.Factory.CreateRibbonDropDownItem()
    End Function

    Private Function CreateRibbonMenu() As RibbonMenu
        Return Me.Factory.CreateRibbonMenu()
    End Function

    Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) Handles Button1.Click
        If LOGIN_OK Then
            Try
                Dim INSPECTOR As Outlook.Inspector = e.Control.Context
                AVISO_Mail_Functions.NewAviso(INSPECTOR.CurrentItem)
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click
        If LOGIN_OK Then
            Try
                Dim INSPECTOR As Outlook.Inspector = e.Control.Context
                AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem)
                'Me.Context
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        End If
    End Sub
End Class