From 4fef52e00cae19c348d513fe738382e93fed8daa Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Thu, 16 May 2024 09:38:23 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20ADDIn=20(Deaktivierung=20der?=
 =?UTF-8?q?=20Protokolierung=20aus=20Performance-Gr=C3=BCnden)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 VERAGAddIn/ThisAddIn.vb      | 57 +++++++++++++++++++-----------------
 VERAGAddIn/VERAGAddIn.vbproj |  2 +-
 VERAGAddIn/rbnVERAG.vb       |  2 ++
 3 files changed, 33 insertions(+), 28 deletions(-)

diff --git a/VERAGAddIn/ThisAddIn.vb b/VERAGAddIn/ThisAddIn.vb
index add44e5..90bf6e2 100644
--- a/VERAGAddIn/ThisAddIn.vb
+++ b/VERAGAddIn/ThisAddIn.vb
@@ -113,38 +113,41 @@ Public Class ThisAddIn
     Public Shared Sub MailChanged(sender As System.Object, Optional ByRef Mail As Outlook.MailItem = Nothing, Optional ByVal Commenttext As String = "")
         ' If MailOpened = True And SendFromOpenMail = True Then RemoveHandler SelectedMail.PropertyChange, AddressOf MailChanged
         'MsgBox(MailOpened)
-        Dim Changes As String = Date.Now.ToString & ": "
-        If Mail Is Nothing Then Mail = SelectedMail
 
-        If sender IsNot Nothing Then
-            Select Case sender.ToString
-                Case "Categories"
-                    If Mail.Categories IsNot Nothing Then
-                        Changes &= "Kategorie geändert auf " & Mail.Categories.ToString & " von: "
-                    Else
-                        Changes &= "Kategorie gelöscht von: "
-                    End If
+        '-------------- AUS PERFPRMANCEGRÜNDEN DEAKTIVIERT : 2024-05-16 d.breimaier -> UMBAU ÄNDERUNGSPROTOKOLL AUF SQL
+        'Dim Changes As String = Date.Now.ToString & ": "
+        'If Mail Is Nothing Then Mail = SelectedMail
 
-                Case "UnRead"
-                    If Mail.UnRead = True Then
-                        Changes &= "Mail als ungelesen markiert von: "
-                    Else
-                        Changes &= "Mail als gelesen markiert von: "
-                    End If
+        'If sender IsNot Nothing Then
+        '    Select Case sender.ToString
+        '        Case "Categories"
+        '            If Mail.Categories IsNot Nothing Then
+        '                Changes &= "Kategorie geändert auf " & Mail.Categories.ToString & " von: "
+        '            Else
+        '                Changes &= "Kategorie gelöscht von: "
+        '            End If
 
-                    'Case "FlagStatus"
-                    '    MsgBox("FlagStatus")
-                Case Else
-                    Exit Sub
-            End Select
-        Else
-            Changes &= Commenttext
-        End If
+        '        Case "UnRead"
+        '            If Mail.UnRead = True Then
+        '                Changes &= "Mail als ungelesen markiert von: "
+        '            Else
+        '                Changes &= "Mail als gelesen markiert von: "
+        '            End If
 
-        Changes &= " " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        '        Case Else
+        '            Exit Sub
+        '    End Select
+        'Else
+        '    Changes &= Commenttext
+        'End If
+
+        'Changes &= " " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+        'Mail.FormDescription.Comment &= Changes & vbCrLf
+        'Mail.Save()
+
+        '-------------- AUS PERFPRMANCEGRÜNDEN DEAKTIVIERT : 2024-05-16 d.breimaier -> UMBAU ÄNDERUNGSPROTOKOLL AUF SQL
 
-        Mail.FormDescription.Comment &= Changes & vbCrLf
-        Mail.Save()
         ' MsgBox(Changes)
 
     End Sub
diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj
index 67a348c..d7c87ac 100644
--- a/VERAGAddIn/VERAGAddIn.vbproj
+++ b/VERAGAddIn/VERAGAddIn.vbproj
@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.123</ApplicationVersion>
+    <ApplicationVersion>1.0.1.125</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index 66476aa..ed27c12 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -47,6 +47,8 @@ Public Class VERAGRibbon
 
     Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
         Try
+
+
             MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString & vbNewLine & "System: " & IIf(cAllgemein.TESTSYSTEM, "TEST", "PRODUKTIV"))
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)