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