Trace-Log für geladenes Ribbon-XML

Kruemelino · Feb 10, 2023 · 048edc8 · 048edc8
1 parent 7f1c788
commit 048edc8
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 11 deletions.
diff --git a/FBoxDial/Ribbon/OutlookRibbons.vb b/FBoxDial/Ribbon/OutlookRibbons.vb
@@ -6,7 +6,7 @@ Imports FBoxDial.RibbonData
 
     Private Property NLogger As Logger = LogManager.GetCurrentClassLogger
 
-#Region "Ribbon Grundlagen für Outlook 2010 bis 2019"
+#Region "Ribbon Grundlagen für Outlook (ab 2010)"
     Private Property RibbonObjekt As IRibbonUI
     Sub Ribbon_Load(Ribbon As IRibbonUI)
         RibbonObjekt = Ribbon
@@ -26,20 +26,22 @@ Imports FBoxDial.RibbonData
 
         Select Case ribbonID
             Case "Microsoft.Outlook.Explorer"
-                Return My.Resources.RibbonExplorer
+                GetCustomUI = My.Resources.RibbonExplorer
             Case "Microsoft.Outlook.Mail.Read"
-                Return My.Resources.RibbonInspectorMailRead
+                GetCustomUI = My.Resources.RibbonInspectorMailRead
             Case "Microsoft.Outlook.Journal"
-                Return My.Resources.RibbonInspectorJournal
+                GetCustomUI = My.Resources.RibbonInspectorJournal
             Case "Microsoft.Outlook.Appointment"
-                Return My.Resources.RibbonInspectorAppointment
+                GetCustomUI = My.Resources.RibbonInspectorAppointment
             Case "Microsoft.Outlook.Contact"
-                Return My.Resources.RibbonInspectorKontakt
+                GetCustomUI = My.Resources.RibbonInspectorKontakt
             Case "Microsoft.Mso.IMLayerUI"
-                Return My.Resources.RibbonIMLayerUI
+                GetCustomUI = My.Resources.RibbonIMLayerUI
             Case Else
-                Return String.Empty
+                GetCustomUI = String.Empty
         End Select
+
+        If GetCustomUI.IsNotStringNothingOrEmpty Then NLogger.Trace($"RibbonXML für {ribbonID}:{vbCrLf}{GetCustomUI}")
     End Function
 
     Public Sub RefreshRibbon()
@@ -62,7 +64,7 @@ Imports FBoxDial.RibbonData
 
 #End Region
 
-#Region "Ribbon Office" ' Ribbon Inspektorfenster
+#Region "Ribbon Office Inspektor" ' Ribbon Inspektorfenster
     ''' <summary>
     ''' Funktion ermittelt anhand des Controls und dessen Context das Outlook-Item.
     ''' </summary>
@@ -236,7 +238,7 @@ Imports FBoxDial.RibbonData
         Return False
     End Function
 
-#End Region 'Ribbon Inspector
+#End Region
 
 #Region "Ribbon: Label, ScreenTipp, ImageMso, OnAction"
 #Disable Warning IDE0060 ' Nicht verwendete Parameter entfernen

diff --git a/Installer/installer.iss b/Installer/installer.iss
@@ -1,5 +1,5 @@
 #define MyAppName "Fritz!Box Telefon-dingsbums"
-#define MyAppVersion "5.0.3.20"
+#define MyAppVersion "5.0.3.21"
 #define MyAppPublisher "Kruemelino"
 #define MyAppURL "https://github.com/Kruemelino/FritzBoxTelefon-dingsbums"
 #define MyAppDescription "Das Fritz!Box Telefon-dingsbums ist ein Addin für Outlook (2010-2021), welches ein direktes Wählen der Kontakte aus dem Computer ermöglicht. Zusätzlich bietet es nützliche Funktionen, wie einen Anrufmonitor oder eine Rückwärtssuche."