Addin

VERAGAddIn/rbnMailItem.vb

@@ -1,9 +1,11 @@
 Option Explicit On
 
 
-Imports Microsoft.Office.Tools.Ribbon
-Imports Microsoft.Office.Interop
+Imports System.Drawing
 Imports System.Windows.Forms
+Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Tools.Ribbon
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class rbnMailItem
     Dim LOGIN_OK As Boolean = False
@@ -14,6 +16,17 @@ Public Class rbnMailItem
 
     Private Sub rbnMailItem_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            Group1.Label = "VERAG - UNLEASHED"
+            btnAVISOUnleashed.Visible = True
+        Else
+            Group1.Label = "VERAG"
+            btnAVISOUnleashed.Visible = False
+
+        End If
+
         'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
         currentexplorer = ThisAddIn.SharedExplorer
@@ -90,4 +103,5 @@ Public Class rbnMailItem
         End If
 
     End Sub
+
 End Class