From 9d5e022562107ef59bc2b05f46169bb17682e0ce Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 20 Aug 2026 09:54:45 +0200
Subject: [PATCH] Verbesserung der Protokollierung und Metadaten-Update
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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.
---
 Services.EmailService/EmailService.vb            | 7 ++++++-
 Services.EmailService/My Project/AssemblyInfo.vb | 8 ++++----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb
index 70e657b6..4e962376 100644
--- a/Services.EmailService/EmailService.vb
+++ b/Services.EmailService/EmailService.vb
@@ -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()
diff --git a/Services.EmailService/My Project/AssemblyInfo.vb b/Services.EmailService/My Project/AssemblyInfo.vb
index 0ec3e34e..f2fca75b 100644
--- a/Services.EmailService/My Project/AssemblyInfo.vb	
+++ b/Services.EmailService/My Project/AssemblyInfo.vb	
@@ -12,8 +12,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DDEmailService")>
-<Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("1.7.3.0")>
+<Assembly: AssemblyCopyright("Copyright © 2026")>
+<Assembly: AssemblyTrademark("1.8.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.3.0")>
-<Assembly: AssemblyFileVersion("1.7.3.0")>
+<Assembly: AssemblyVersion("1.8.0.0")>
+<Assembly: AssemblyFileVersion("1.8.0.0")>