Version 2.11.4.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 © 2023")>
-<Assembly: AssemblyTrademark("2.11.3.0")>
+<Assembly: AssemblyTrademark("2.11.4.0")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.11.3.0")>
+<Assembly: AssemblyVersion("2.11.4.0")>
-<Assembly: AssemblyFileVersion("2.11.3.0")>
+<Assembly: AssemblyFileVersion("2.11.4.0")>

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -174,21 +174,28 @@ Public Class clsWorkEmail
                 Return PROCESS_MANAGER_IN(CurrentMail)
 
             Else
+
                 _Logger.Debug("CommonEmail-Process-Sniffer")
-                If COMMON_EMAIL_IN(CurrentMail) = True Then
+
-                    InsertHistoryEntry(CurrentMail)
+                Dim oCommonEmailResult = COMMON_EMAIL_IN(CurrentMail)
+
+                If oCommonEmailResult = False Then
+                    Return False
+                End If
+
                 If CURRENT_ATTMT_COUNT = 0 Then
                     _Logger.Info("### Mail contained no Attachments!! ###")
                     Dim oBody = EmailStrings.EMAIL_NO_FERDS
                     If AddToEmailQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID) = True Then
                         CURRENT_ImapObject.DeleteMessageByUID(poUID)
                     End If
-                    End If
+                    InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
-                    Return True
                 Else
-                    Return False
+                    InsertHistoryEntry(CurrentMail)
                 End If
 
+                Return True
+
             End If
 
         Catch ex As Exception