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 CURRENT_ATTMT_COUNT = 0 Then
+
-                        _Logger.Info("### Mail contained no Attachments!! ###")
+                If oCommonEmailResult = False Then
-                        Dim oBody = EmailStrings.EMAIL_NO_FERDS
-                        If AddToEmailQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID) = True Then
-                            CURRENT_ImapObject.DeleteMessageByUID(poUID)
-                        End If
-                    End If
-                    Return True
-                Else
                     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
+                    InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
+                Else
+                    InsertHistoryEntry(CurrentMail)
+                End If
+
+                Return True
+
             End If
 
         Catch ex As Exception