neu

VERAGAddIn/rbnMailItem.vb

@@ -0,0 +1,40 @@
+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