AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Verbesserung der Protokollierung und Metadaten-Update

Browse Source 
In der Klasse `EmailService` wurden Debug-Logs hinzugefügt, um die Nachverfolgbarkeit von Anhängen zu verbessern. Eine neue Bedingung setzt `_AttachmentByteData` auf `Nothing`, bevor Anhänge geprüft werden, und zusätzliche Logs dokumentieren Fälle ohne Anhänge.

Die Assembly-Metadaten in `AssemblyInfo.vb` wurden aktualisiert:
- Copyright auf "© 2026" geändert.
- Trademark-Version auf "1.8.0" aktualisiert.
- Assembly-Version und AssemblyFileVersion auf "1.8.0.0" aktualisiert.
This commit is contained in:
Developer01
2026-08-20 09:54:45 +02:00
parent ee47b50363
commit 9d5e022562
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Services.EmailService/EmailService.vb
View File

@@ -418,7 +418,9 @@ Public Class EmailService
oAttachment = oRow.ItemEx("EMAIL_ATTMT1", String.Empty)
ATT1_RELATED_ID = oRow.ItemEx("ATT1_RELATED_ID", String.Empty)
ATT1_REL_TYPE = oRow.ItemEx("ATT1_REL_TYPE", String.Empty)
_Logger.Debug($"EMAIL_ATTMT1: {oAttachment}, ATT1_RELATED_ID: {ATT1_RELATED_ID}, ATT1_REL_TYPE: {ATT1_REL_TYPE}")
End Select
_AttachmentByteData = Nothing
If ATT1_RELATED_ID <> String.Empty And ATT1_REL_TYPE <> String.Empty Then
_Logger.Info($"Attachment via byte/ID [{ATT1_RELATED_ID}]...")
If ATT1_REL_TYPE = "EnvelopeResult" Then
@@ -433,6 +435,8 @@ Public Class EmailService
oAttachment = oFileFromByteData
End If
End If
Else
_Logger.Debug(Of String)("No Attachment via byte/ID [{0}]...", ATT1_RELATED_ID)
End If
If oAttachment <> String.Empty Then
If oAttachment.ToString.Contains("\") Then
@@ -444,7 +448,8 @@ Public Class EmailService
_Logger.Debug("Email Attachment Is: {0}", oAttachment)
End If
End If
Else
_Logger.Debug("No Email Attachment.")
End If
Dim oAddresses As List(Of String) = oEmailTo.Split(";").ToList()