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

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -713,7 +713,7 @@ Public Class clsWorkEmail
                                     If oFileLenth > 2 Then
                                         _Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFilePath))
                                         'INSERT_HISTORY_FB(CURRENT_MAIL_MESSAGE_ID, oAttachment.SafeFileName)
-                                        InsertAttachmentHistoryEntry(pCurrentMail, pCurrentMail.MessageId, oAttachment.SafeFileName)
+                                        InsertAttachmentHistoryEntry(pCurrentMail, pCurrentMail.MessageId, oAttachment.SafeFileName, oAttachmentFileName)
                                         oAttachmentCount += 1
                                     Else
                                         _Logger.Warn($"##!! oFileLenth for AttachmentObjects is <2 !!##")
@@ -798,7 +798,7 @@ Public Class clsWorkEmail
         Return _DB_MSSQL.ExecuteNonQuery(ins)
     End Function
 
-    Private Function InsertAttachmentHistoryEntry(pCurrentMail As MailContainer, pMessageId As String, pFileName As String) As Boolean
+    Private Function InsertAttachmentHistoryEntry(pCurrentMail As MailContainer, pMessageId As String, pFileName As String, pNewFileName As String) As Boolean
         If IsNothing(_DB_MSSQL) Then
             _Logger.Info("INSERT_HISTORY_FB: _DB_MSSQL is nothing ")
             Return False
@@ -812,7 +812,8 @@ Public Class clsWorkEmail
                     EMAIL_SUBJECT,
                     EMAIL_DATETIME,
                     EMAIL_BODY,
-                    EMAIL_ATTMT
+                    EMAIL_ATTMT,
+                    EMAIL_ATTMT_INDEX
                 ) VALUES " &
                   $"('{CurrentMailProcessName}'," &
                   $"'{pMessageId}'," &
@@ -820,7 +821,8 @@ Public Class clsWorkEmail
                   $"'{pCurrentMail.SubjectOriginal}'," &
                   $"'{pCurrentMail.Mail.Date}'," &
                   $"'{CURRENT_MAIL_BODY_ALL}'," &
-                  $"'{pFileName}')"
+                  $"'{pFileName}'," &
+                  $"'{pNewFileName}')"
                 _DB_MSSQL.ExecuteNonQuery(ins)
             End If