Verbesserung der Protokollierung und Metadaten-Update

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

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

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