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 = "") 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 ' If MailOpened = True And SendFromOpenMail = True Then RemoveHandler SelectedMail.PropertyChange, AddressOf MailChanged
'MsgBox(MailOpened) 'MsgBox(MailOpened)
Dim Changes As String = Date.Now.ToString & ": "
If Mail Is Nothing Then Mail = SelectedMail
If sender IsNot Nothing Then '-------------- AUS PERFPRMANCEGRÜNDEN DEAKTIVIERT : 2024-05-16 d.breimaier -> UMBAU ÄNDERUNGSPROTOKOLL AUF SQL
Select Case sender.ToString 'Dim Changes As String = Date.Now.ToString & ": "
Case "Categories" 'If Mail Is Nothing Then Mail = SelectedMail
If Mail.Categories IsNot Nothing Then
Changes &= "Kategorie geändert auf " & Mail.Categories.ToString & " von: "
Else
Changes &= "Kategorie gelöscht von: "
End If
Case "UnRead" 'If sender IsNot Nothing Then
If Mail.UnRead = True Then ' Select Case sender.ToString
Changes &= "Mail als ungelesen markiert von: " ' Case "Categories"
Else ' If Mail.Categories IsNot Nothing Then
Changes &= "Mail als gelesen markiert von: " ' Changes &= "Kategorie geändert auf " & Mail.Categories.ToString & " von: "
End If ' Else
' Changes &= "Kategorie gelöscht von: "
' End If
'Case "FlagStatus" ' Case "UnRead"
' MsgBox("FlagStatus") ' If Mail.UnRead = True Then
Case Else ' Changes &= "Mail als ungelesen markiert von: "
Exit Sub ' Else
End Select ' Changes &= "Mail als gelesen markiert von: "
Else ' End If
Changes &= Commenttext
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) ' MsgBox(Changes)
End Sub End Sub

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -36,7 +36,7 @@
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl> <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl> <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture> <TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.123</ApplicationVersion> <ApplicationVersion>1.0.1.125</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision> <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled> <UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval> <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 Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
Try Try
MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString & vbNewLine & "System: " & IIf(cAllgemein.TESTSYSTEM, "TEST", "PRODUKTIV")) 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 Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)