Common: Version 2.15.0.0

App/EmailProfiler.Common/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DigitalData.EMLProfiler")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("2.14.0.0")>
+<Assembly: AssemblyTrademark("2.15.0.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.14.0.0")>
-<Assembly: AssemblyFileVersion("2.14.0.0")>
+<Assembly: AssemblyVersion("2.15.0.0")>
+<Assembly: AssemblyFileVersion("2.15.0.0")>

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -190,13 +190,15 @@ Public Class clsWorkEmail
 
                 If CURRENT_ATTMT_COUNT = 0 Then
                     _Logger.Info("### Mail contained no Attachments!! ###")
+                    InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
+
                     Dim oBody = EmailStrings.EMAIL_NO_FERDS
                     'If AddEmailToQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID) = True Then
                     If AddToEmailQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID,
                                             _RejectionTemplateId, ErrorCode.NoAttachments, "", "") = True Then
                         CURRENT_ImapObject.DeleteMessageByUID(poUID)
                     End If
-                    InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
+
                 Else
                     InsertHistoryEntry(CurrentMail)
                 End If
@@ -316,7 +318,7 @@ Public Class clsWorkEmail
                                     '{pMessageId}'
                                     , 0
                                     , {pEmailAccountId}
-                                    , 'ZUGFeRD Service'
+                                    , 'DDEmailProfiler'
                                     , {pTemplateId}
                                     , '{pErrorCode}'
                                     , '{pParameter1}'