diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb
index 151d82df..b90d0d17 100644
--- a/Services.EmailService/EmailService.vb
+++ b/Services.EmailService/EmailService.vb
@@ -6,6 +6,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Messaging
 Imports DigitalData.Modules.Config
+Imports FirebirdSql.Data
 
 Public Class EmailService
     Private _Logger As Logger
@@ -458,16 +459,10 @@ Public Class EmailService
 
                             Select Case Database
                                 Case DatabaseType.Firebird
-                                    oSQL = $"UPDATE TBEDM_EMAIL_QUEUE SET EMAIL_SENT = CURRENT_TIMESTAMP,COMMENT = '{oComment}' WHERE GUID = {oGuid}"
-                                    If oSQL.Contains(",COMMENT = ''") Then
-                                        oSQL.Replace(",COMMENT = ''", "")
-                                    End If
+                                    oSQL = GetFirebirdUpdateString(oComment, oGuid)
                                     _Firebird.ExecuteNonQuery(oSQL)
                                 Case DatabaseType.MSSQL
-                                    oSQL = $"UPDATE TBEMLP_EMAIL_OUT SET EMAIL_SENT = GETDATE(),COMMENT = '{oComment}' WHERE GUID = {oGuid} "
-                                    If oSQL.Contains(",COMMENT = ''") Then
-                                        oSQL.Replace(",COMMENT = ''", "")
-                                    End If
+                                    oSQL = GetSQLUpdateString(oComment, oGuid)
                                     MSSQLInstance.ExecuteNonQuery(oSQL)
                             End Select
                             _Logger.Info($"EmailID [{oGuid.ToString}] has been send to: {oEmailTo}")
@@ -477,27 +472,14 @@ Public Class EmailService
                             oFailedSent.Add(oEmailTo)
 
                             Select Case Database
-
                                 Case DatabaseType.MSSQL
                                     oSQL = $"UPDATE TBEMLP_EMAIL_OUT SET ERROR_TIMESTAMP = GETDATE(),ERROR_MSG = '{_limilab.ErrorMessage}' WHERE GUID = {oGuid} "
                                     MSSQLInstance.ExecuteNonQuery(oSQL)
-                                    If _messageSend = True Then
-                                        Select Case Database
-                                            Case DatabaseType.Firebird
-                                                oSQL = $"UPDATE TBEDM_EMAIL_QUEUE SET EMAIL_SENT = CURRENT_TIMESTAMP,COMMENT = '{oComment}' WHERE GUID = {oGuid}"
-                                                If oSQL.Contains(",COMMENT = ''") Then
-                                                    oSQL.Replace(",COMMENT = ''", "")
-                                                End If
-                                                _Firebird.ExecuteNonQuery(oSQL)
-                                            Case DatabaseType.MSSQL
-                                                oSQL = $"UPDATE TBEMLP_EMAIL_OUT SET EMAIL_SENT = GETDATE(),COMMENT = '{oComment}' WHERE GUID = {oGuid} "
-                                                If oSQL.Contains(",COMMENT = ''") Then
-                                                    oSQL.Replace(",COMMENT = ''", "")
-                                                End If
-                                                MSSQLInstance.ExecuteNonQuery(oSQL)
-                                        End Select
-                                        _Logger.Info($"EmailID [{oGuid.ToString}] has been send to: {oEmailTo} - although there was an error in connection close!")
 
+                                    If _messageSend = True Then
+                                        oSQL = GetSQLUpdateString(oComment, oGuid)
+                                        MSSQLInstance.ExecuteNonQuery(oSQL)
+                                        _Logger.Info($"EmailID [{oGuid.ToString}] has been send to: {oEmailTo} - although there was an error in connection close!")
                                     End If
 
                             End Select
@@ -528,6 +510,30 @@ Public Class EmailService
             Return False
         End Try
     End Function
+
+    Private Function GetSQLUpdateString(pComment As String, pGuid As Integer) As String
+        Dim oSQL As String = "UPDATE TBEMLP_EMAIL_OUT SET "
+        oSQL += " EMAIL_SENT = GETDATE() "
+
+        If String.IsNullOrWhiteSpace(pComment) = False Then
+            oSQL += $", COMMENT = '{pComment}' "
+        End If
+
+        oSQL += $" WHERE Guid = {pGuid}"
+
+        Return oSQL
+    End Function
+
+    Private Function GetFirebirdUpdateString(pComment As String, pGuid As Integer) As String
+        ' Vermutlich wird das nicht mehr gebraucht?
+        Dim oSQL As String = $"UPDATE TBEDM_EMAIL_QUEUE SET EMAIL_SENT = CURRENT_TIMESTAMP,COMMENT = '{pComment}' WHERE GUID = {pGuid}"
+        If oSQL.Contains(",COMMENT = ''") Then
+            oSQL.Replace(",COMMENT = ''", "")
+        End If
+
+        Return oSQL
+    End Function
+
     Private Sub GetEnvelope_Result_FileStreamByte(ByVal pEnvID As Long, pMSSQL As MSSQLServer)
 
         Dim strSql As String
diff --git a/Services.EmailService/My Project/AssemblyInfo.vb b/Services.EmailService/My Project/AssemblyInfo.vb
index e568bb1c..d825b227 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 © 2023")>
-<Assembly: AssemblyTrademark("1.5.2.0")>
+<Assembly: AssemblyCopyright("Copyright © 2024")>
+<Assembly: AssemblyTrademark("1.7.1.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.7.0.0")>
+<Assembly: AssemblyVersion("1.7.1.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/Services.ZUGFeRDService/My Project/AssemblyInfo.vb b/Services.ZUGFeRDService/My Project/AssemblyInfo.vb
index e80b03b5..acab2140 100644
--- a/Services.ZUGFeRDService/My Project/AssemblyInfo.vb	
+++ b/Services.ZUGFeRDService/My Project/AssemblyInfo.vb	
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("DDZUGFeRDService")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("2.8.3.0")>
+<Assembly: AssemblyTrademark("2.8.4.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.8.3.0")>
-<Assembly: AssemblyFileVersion("2.8.3.0")>
+<Assembly: AssemblyVersion("2.8.4.0")>
+<Assembly: AssemblyFileVersion("2.8.4.0")>