edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen ADDIn (Deaktivierung der Protokolierung aus Performance-Gründen)

Browse Source
This commit is contained in:
d.breimaier
2024-05-16 09:38:23 +02:00
parent eb00a42493
commit 4fef52e00c
3 changed files with 33 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
VERAGAddIn/ThisAddIn.vb
View File

@@ -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

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -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>

2
VERAGAddIn/rbnVERAG.vb
View File

@@ -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)