MS attachmentsHandling

App/EmailProfiler.Common/ClassCurrent.vb

@@ -46,10 +46,11 @@ Public Class ClassCurrent
     Public Shared Property CURRENT_DOC_ID As Integer
     Public Shared Property CURRENT_DOC_PATH As String
     Public Shared Property MESSAGE_ERROR As Boolean = False
+    Public Shared Property IS_LOCAL_TEST As Boolean = False
 
     Public Shared Property TEMP_FILES As List(Of String) = New List(Of String)
 
-
+    Public Shared Property TEMP_WORK_FILES As List(Of String) = New List(Of String)
 
 
 End Class

App/EmailProfiler.Common/EmailProfiler.Common.vbproj

@@ -65,6 +65,9 @@
     <Reference Include="DigitalData.Modules.Patterns">
       <HintPath>..\..\..\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
     </Reference>
+    <Reference Include="GdPicture.NET.14">
+      <HintPath>D:\ProgramFiles\GdPicture.net 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
+    </Reference>
     <Reference Include="Interop.WINDREAMLib">
       <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
       <EmbedInteropTypes>False</EmbedInteropTypes>

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

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.15.0.0")>
-<Assembly: AssemblyFileVersion("2.15.0.0")>
+<Assembly: AssemblyVersion("3.0.0.0")>
+<Assembly: AssemblyFileVersion("3.0.0.0")>

App/EmailProfiler.Common/UserConfig.xml

@@ -0,0 +1,9 @@
+<?xml version="1.0"?>
+<Config xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <Debug>true</Debug>
+  <EmailAccountId>2</EmailAccountId>
+  <EmailTitlePrefix>EmailProfiler</EmailTitlePrefix>
+  <EmailSenderLimitation />
+  <UseWindream>false</UseWindream>
+  <RejectionTemplateId>1</RejectionTemplateId>
+</Config>

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -12,6 +12,9 @@ Imports Limilabs.Mail.Headers
 Imports MailBox = Limilabs.Mail.Headers.MailBox
 Imports DigitalData.Modules.Patterns
 Imports System.Data.SqlClient
+Imports GdPicture14
+Imports System.Net.WebRequestMethods
+Imports Limilabs.Client.IMAP
 
 Public Class clsWorkEmail
     Private Const SUBJECT_MAX_LENGTH = 25
@@ -42,10 +45,11 @@ Public Class clsWorkEmail
 
     Private ReadOnly _EmailAccountID As Integer = 1
     Private ReadOnly _RejectionTemplateId As Integer = 0
+    Private ReadOnly _InfoTemplateId As Integer = 0
 
     Private _worked_email As Boolean = False
 
-    Sub New(LogConf As LogConfig, ConStr As String, WmConStr As String, pUseWindream As Boolean, EmailAccountID As Integer, EmlProfPraefix As String, pRejectionTemplateId As Integer)
+    Sub New(LogConf As LogConfig, ConStr As String, WmConStr As String, pUseWindream As Boolean, EmailAccountID As Integer, EmlProfPraefix As String, pRejectionTemplateId As Integer, pInfoTemplateId As Integer)
         Try
             _Logger = LogConf.GetLogger
             _LogConfig = LogConf
@@ -54,8 +58,10 @@ Public Class clsWorkEmail
             _UseWindream = pUseWindream
             _Patterns = New Patterns2(LogConf)
             _RejectionTemplateId = pRejectionTemplateId
+            _InfoTemplateId = pInfoTemplateId
             _Logger.Debug($"_RejectionTemplateId: {_RejectionTemplateId}")
 
+
             If pUseWindream Then
                 _windream = New clsWindream_allgemein(LogConf)
                 _windream_index = New clsWindream_Index(LogConf)
@@ -121,7 +127,7 @@ Public Class clsWorkEmail
             Dim oSql = $"Select COALESCE(MAX(GUID),0) FROM TBEMLP_HISTORY WHERE EMAIL_MSGID = '{CurrentMail.MessageId}'"
             Dim oHistoryID = _DB_MSSQL.GetScalarValue(oSql)
 
-            If oHistoryID > 0 Then
+            If oHistoryID > 0 And IS_LOCAL_TEST = False Then
                 _Logger.Info($"Message with subject [{CURRENT_MAIL_SUBJECT}] from [{CURRENT_MAIL_FROM}] has already been worked!")
                 Return True
             End If
@@ -137,7 +143,7 @@ Public Class clsWorkEmail
             End If
 
             Try
-                Dim oFS As FileStream = File.OpenRead(CurrentTempMailPath)
+                Dim oFS As FileStream = System.IO.File.OpenRead(CurrentTempMailPath)
                 oTempMailAccessible = True
                 oFS.Close()
             Catch ex As Exception
@@ -200,7 +206,9 @@ Public Class clsWorkEmail
                     End If
 
                 Else
-                    InsertHistoryEntry(CurrentMail)
+                    If IS_LOCAL_TEST = False Then
+                        InsertHistoryEntry(CurrentMail)
+                    End If
                 End If
 
                 Return True
@@ -212,7 +220,32 @@ Public Class clsWorkEmail
             Return False
         End Try
     End Function
+    ''' <summary>
+    ''' Method to decide wether we use the old or the new
+    ''' Rejection E-mail method.
+    ''' 
+    ''' TODO we have no information about the language of the receiver at the moment
+    ''' </summary>
+    ''' <param name="pMessageId">E-Mail Message ID</param>
+    ''' <param name="pSTATE_TITLE">Comment</param>
+    ''' <param name="pSTATE_TITLE1">Name oder Reason</param>
+    Public Function AddTrackingStatusMSSQL(pMessageId As String, pSTATE_TITLE As String, pSTATE_TITLE1 As String, pCOMMENT As String, pADDEDWHO As String) As Boolean
 
+        Dim oInsert = $"INSERT INTO [dbo].[TBEMLP_HISTORY_STATE]
+           ([MESSAGE_ID]
+           ,[STATE_TITLE]
+           ,[STATE_TITLE1]
+           ,[COMMENT]
+            ,ADDED_WHO)
+                 VALUES
+                       ('{pMessageId}'
+                       ,'{pSTATE_TITLE}'
+                       ,'{pSTATE_TITLE1}'
+                       ,'{pCOMMENT}'
+                       ,'{pADDEDWHO}')"
+        Return _DB_MSSQL.ExecuteNonQuery(oInsert)
+
+    End Function
     ''' <summary>
     ''' Method to decide wether we use the old or the new
     ''' Rejection E-mail method.
@@ -553,7 +586,7 @@ Public Class clsWorkEmail
                 End Try
 
                 If COPY2HDD(pCurrentMail, oRow("COPY_2_HDD"), oRow("PATH_ORIGINAL"), oRow("PATH_EMAIL_ERRORS"), True) = True Then
-                    'ToDo Konsistenz prüfen
+
                     If EXTRACT_ATTACHMENTS(pCurrentMail, oExtractMainPath, oRow("PATH_EMAIL_ERRORS")) = True Then
 
                         Return True
@@ -591,7 +624,7 @@ Public Class clsWorkEmail
             Dim oFileName As String
             For Each oFileName In oFileEntries
                 Try
-                    File.Delete(oFileName)
+                    System.IO.File.Delete(oFileName)
                 Catch ex As Exception
                 End Try
             Next oFileName
@@ -613,7 +646,7 @@ Public Class clsWorkEmail
 
             Dim oCounter As Integer = 1
             Dim oCancel As Boolean
-            Do While File.Exists(CurrentTempMailPath) = False
+            Do While System.IO.File.Exists(CurrentTempMailPath) = False
                 _Logger.Debug("Trying to read saved mail.. ({0}/{1})", oCounter, 10)
                 Thread.Sleep(1000)
                 oCounter += 1
@@ -626,7 +659,7 @@ Public Class clsWorkEmail
             If oCancel = True Then
                 oResult = False
             Else
-                If File.Exists(CurrentTempMailPath) Then
+                If System.IO.File.Exists(CurrentTempMailPath) Then
                     oResult = True
                 End If
             End If
@@ -651,7 +684,7 @@ Public Class clsWorkEmail
                 If Directory.Exists(pDestination) Then
                     Dim oTempFilename = Path.Combine(pDestination, $"{pCurrentMail.MessageId}.eml")
 
-                    If File.Exists(oTempFilename) = False Then
+                    If System.IO.File.Exists(oTempFilename) = False Then
 
                         pCurrentMail.Mail.Save(oTempFilename)
 
@@ -664,7 +697,7 @@ Public Class clsWorkEmail
                         Else
                             _Logger.Warn("FileLenth of file [{0}] is 0! File will be deleted.", oTempFilename)
                             Try
-                                File.Delete(oTempFilename)
+                                System.IO.File.Delete(oTempFilename)
                             Catch ex As Exception
                                 _Logger.Error(ex)
                             End Try
@@ -795,27 +828,37 @@ Public Class clsWorkEmail
         _Logger.Debug(String.Format("PATH_TEMP[{0}]", pExtractPath))
         Dim oAttachmentCount As Integer
         oAttachmentCount = 0
+        TEMP_WORK_FILES.Clear()
 
         Try
             If CurrentTempMailPath <> Nothing Then
-                If File.Exists(CurrentTempMailPath) Then
-
+                If System.IO.File.Exists(CurrentTempMailPath) Then
+                    Dim oATTFilename = ""
                     For Each oAttachment As MimeData In pCurrentMail.Mail.Attachments
-                        Dim oATTFilename = oAttachment.SafeFileName.ToString.ToLower
+                        oATTFilename = oAttachment.SafeFileName.ToString.ToLower
 
                         Dim oValidExtensions = New List(Of String) From {"pdf", "xls", "xlsx", "doc", "docx", "ppt", "pptx"}
+                        Dim oGraphicExtensions = New List(Of String) From {"jpg", "bmp", "jpg", "gif", "xml"}
                         Dim oValidExt = oValidExtensions.Any(Function(ext) oATTFilename.EndsWith(ext))
 
                         If oValidExt = False Then
-                            _Logger.Debug("Invalid FileExtension [{0}]", oATTFilename)
+                            _Logger.Info("Invalid FileExtension [{0}]", oATTFilename)
+                            Dim GraphicExt = oGraphicExtensions.Any(Function(ext) oATTFilename.EndsWith(ext))
+                            If GraphicExt = False Then
+                                Dim oInfo = $"Consistency or extension of attached file {oATTFilename} is not ok."
+                                AddTrackingStatusMSSQL(CurrentMail.MessageId, oInfo, "PDF CONSISTENCY NOT OK", "Info GUI", "EML_PROF_EXTR_ATT1")
+                                AddToEmailQueueMSSQL(CurrentMail.MessageId, oInfo, "PDF CONSISTENCY NOT OK", _EmailAccountID,
+                                                        _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oATTFilename, "")
+
+                            End If
                             Continue For
+
                         End If
 
                         Dim oAttachmentFilePath = ""
                         _Logger.Info("Working on Attachment [{0}]", oAttachment.SafeFileName)
                         Try
 
-
                             Dim oFileInfo = New FileInfo(oAttachment.SafeFileName)
                             Dim oFilenameWithoutExtension = Path.GetFileNameWithoutExtension(oAttachment.SafeFileName)
                             Dim oFilename = StringEx.ConvertTextToSlug(oFilenameWithoutExtension) & oFileInfo.Extension
@@ -825,45 +868,107 @@ Public Class clsWorkEmail
 
                             _Logger.Debug("Final Filename for Attachment: [{0}]", oAttachmentFileName)
 
-                            oAttachmentFilePath = Path.Combine(pExtractPath, oAttachmentFileName)
+                            oAttachmentFilePath = Path.Combine(pExtractPath, "Temp", oAttachmentFileName)
                             _Logger.Debug("Final Path for Attachment: [{0}]", oAttachmentFilePath)
 
-                            If File.Exists(oAttachmentFilePath) = False Then
-                                _Logger.Debug(String.Format("Trying to save attachment [{0}]", oAttachmentFilePath))
-                                Try
-                                    oAttachment.Save(oAttachmentFilePath)
-                                    'oAttachment.Save(oAttachmentFileString)
-                                    Dim oFileInfo1 As New FileInfo(oAttachmentFilePath)
-                                    Dim oFileLenth As Long = oFileInfo1.Length
-                                    If oFileLenth > 2 Then
-                                        _Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFilePath))
-                                        InsertAttachmentHistoryEntry(pCurrentMail, oAttachment.SafeFileName, oAttachmentFileName)
-                                        oAttachmentCount += 1
+                            If System.IO.File.Exists(oAttachmentFilePath) Then
+                                _Logger.Warn("File [{0}] already exists!", oAttachmentFilePath)
+                                System.IO.File.Delete(oAttachmentFilePath)
+                            End If
+
+                            _Logger.Debug(String.Format("Trying to save attachment [{0}]", oAttachmentFilePath))
+                            Try
+                                oAttachment.Save(oAttachmentFilePath)
+                                'oAttachment.Save(oAttachmentFileString)
+                                Dim oFileInfo1 As New FileInfo(oAttachmentFilePath)
+                                'ToDo Konsistenz prüfen
+                                If oFileInfo.Extension.ToLower = ".pdf" Then
+                                    Dim oPDFConsistent As Boolean = True
+                                    Dim oGdPicturePDF As New GdPicturePDF()
+                                    Dim oStatus As GdPictureStatus = oGdPicturePDF.LoadFromFile(oAttachmentFilePath, True)
+                                    If oStatus <> GdPictureStatus.OK Then
+                                        oPDFConsistent = False
+                                        Dim oResult = $"PDF-Consistency of attached file {oATTFilename} is not ok. ({oStatus.ToString})"
+                                        AddTrackingStatusMSSQL(CurrentMail.MessageId, oResult, "PDF CONSISTENCY NOT OK", "Info GUI", "EML_PROF_EXTR_ATT2")
+                                        AddToEmailQueueMSSQL(CurrentMail.MessageId, oResult, "PDF CONSISTENCY NOT OK", _EmailAccountID,
+                                                                _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oATTFilename, "")
+                                        System.IO.File.Delete(oAttachmentFilePath)
+                                        Continue For
                                     Else
-                                        _Logger.Warn($"##!! oFileLenth for AttachmentObjects is <2 !!##")
-                                        Try
-                                            File.Delete(oAttachmentFilePath)
-                                        Catch ex As Exception
-                                            _Logger.Error(ex)
-                                        End Try
-                                        MESSAGE_ERROR = True
+                                        Dim embeddedFileCount As Integer = oGdPicturePDF.GetEmbeddedFileCount()
+                                        If embeddedFileCount > 0 Then
+                                            For i As Integer = 0 To embeddedFileCount - 1
+                                                Dim oEmbAttName As String = oGdPicturePDF.GetEmbeddedFileName(i)
+                                                Dim fileDetail As IO.FileInfo
+                                                fileDetail = My.Computer.FileSystem.GetFileInfo(oEmbAttName)
+                                                If oGdPicturePDF.GetStat() = GdPictureStatus.OK Then
+                                                    Dim FileSize As Integer = oGdPicturePDF.GetEmbeddedFileSize(i)
+                                                    oValidExt = oValidExtensions.Any(Function(ext) oEmbAttName.EndsWith(ext))
+
+                                                    If oValidExt = False Then
+                                                        _Logger.Info("Invalid FileExtension of embedded file [{0}]", oEmbAttName)
+                                                        Dim GraphicExt = oGraphicExtensions.Any(Function(ext) oEmbAttName.EndsWith(ext))
+                                                        If GraphicExt = False Then
+                                                            Dim oInfo = $"Consistency or extension of attached file [{oEmbAttName}] is not ok."
+                                                            AddTrackingStatusMSSQL(CurrentMail.MessageId, oInfo, "Extension invalid", "Info GUI", "EML_PROF_EXTR_ATT3")
+                                                            AddToEmailQueueMSSQL(CurrentMail.MessageId, oInfo, "Extension invalid", _EmailAccountID,
+                                                        _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oEmbAttName, "")
+                                                        End If
+                                                        Continue For
+                                                    End If
+                                                    If oGdPicturePDF.GetStat() = GdPictureStatus.OK Then
+                                                        Dim FileData As Byte() = New Byte(FileSize) {}
+                                                        Dim status As GdPictureStatus = oGdPicturePDF.ExtractEmbeddedFile(0, FileData)
+                                                        If status <> GdPictureStatus.OK Or FileSize = 0 Then
+                                                            oPDFConsistent = False
+
+                                                            Dim oResult = $"Consistency or PDF-State of embedded file [{oEmbAttName}] is not ok."
+                                                            AddTrackingStatusMSSQL(CurrentMail.MessageId, oResult, "PDF CONSISTENCY EMBEDDED FILE NOT OK", "Info GUI", "EML_PROF_EXTR_ATT4")
+                                                            AddToEmailQueueMSSQL(CurrentMail.MessageId, oResult, "PDF CONSISTENCY EMBEDDED FILE NOT OK", _EmailAccountID,
+                                                                _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oEmbAttName, "")
+                                                            Continue For
+                                                        End If
+                                                    End If
+                                                End If
+                                            Next
+                                        End If
                                     End If
 
-                                Catch ex As Exception
-                                    _Logger.Warn($"Error while saving attachment-name: {ex.Message} - AttachmentName: {oAttachmentFilePath}")
-                                    MESSAGE_ERROR = True
 
-                                End Try
-                            Else
-                                _Logger.Warn("File [{0}] already exists!", oAttachmentFilePath)
-                                oAttachmentCount += 1
-                            End If
+
+                                End If
+
+                                Dim oFileLength As Long = oFileInfo1.Length
+                                If oFileLength > 2 Then
+                                    _Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFilePath))
+                                    InsertAttachmentHistoryEntry(pCurrentMail, oAttachment.SafeFileName, oAttachmentFileName)
+                                    oAttachmentCount += 1
+                                Else
+                                    _Logger.Warn($"##!! oFileLength for AttachmentObjects is <2 !!##")
+                                    Dim oResult = $"Consistency of attached file [{oAttachment.SafeFileName}] is not ok."
+                                    AddTrackingStatusMSSQL(CurrentMail.MessageId, oResult, "CONSISTENCY ATTACHED FILE NOT OK", "Info GUI", "EML_PROF_EXTR_ATT5")
+                                    AddToEmailQueueMSSQL(CurrentMail.MessageId, oResult, "CONSISTENCY ATTACHED FILE NOT OK", _EmailAccountID,
+                                                                _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oAttachment.SafeFileName, "")
+                                    Try
+                                        System.IO.File.Delete(oAttachmentFilePath)
+                                    Catch ex As Exception
+                                        _Logger.Error(ex)
+                                    End Try
+                                End If
+
+                            Catch ex As Exception
+                                _Logger.Warn($"Error while saving attachment-name: {ex.Message} - AttachmentName: {oAttachmentFilePath}")
+                                MESSAGE_ERROR = True
+
+                            End Try
+
 
                         Catch ex As Exception
                             _Logger.Warn($"Error while creating and saving attachment-name: {ex.Message} - AttachmentName: {oAttachmentFilePath}")
                             MESSAGE_ERROR = True
 
                         End Try
+                        TEMP_WORK_FILES.Add(oAttachmentFilePath)
                     Next
                 Else
                     _Logger.Warn($"If cause 2 EXTRACT_ATTACHMENTS: {CurrentTempMailPath} not existing")
@@ -873,9 +978,13 @@ Public Class clsWorkEmail
             End If
             CURRENT_ATTMT_COUNT = oAttachmentCount
             If MESSAGE_ERROR = True Then
+                WorkTempFiles("delete")
                 Return False
+
             Else
+                WorkTempFiles("move")
                 Return True
+
             End If
         Catch ex As Exception
             _Logger.Error(ex)
@@ -883,6 +992,26 @@ Public Class clsWorkEmail
             Return False
         End Try
     End Function
+    Private Sub WorkTempFiles(pACT As String)
+        For Each _file In TEMP_WORK_FILES
+            _Logger.Debug("Working on temp work file: [{0}]", _file)
+
+            If IO.File.Exists(_file) Then
+                If pACT = "Delete" Then
+                    Try
+                        IO.File.Delete(_file)
+                    Catch ex As Exception
+                        _Logger.Error(ex)
+                        _Logger.Warn("Could not delete the tempworkfile : [{0}]", _file)
+                    End Try
+                ElseIf pACT = "move" Then
+                    IO.File.Move(_file, _file.Replace("\Temp", ""))
+                End If
+
+            End If
+        Next
+        TEMP_WORK_FILES.Clear()
+    End Sub
 
     Private Function InsertHistoryEntry(pCurrentMail As MailContainer) As Boolean
         If MESSAGE_ERROR = False Then

App/EmailProfiler.Common/clsWorker.vb

@@ -25,7 +25,7 @@ Public Class clsWorker
     Private ReadOnly LocalEmlFile As String = ""
 
     Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pUseWindream As Boolean,
-            pEmailAccountID As Integer, pEmailPrefix As String, pEmailLimitationSender As String, pRejectionTemplateId As Integer, Optional pLocalEML As String = "")
+            pEmailAccountID As Integer, pEmailPrefix As String, pEmailLimitationSender As String, pRejectionTemplateId As Integer, pInfoTemplateId As Integer, Optional pLocalEML As String = "")
         Logger = pLogConfig.GetLogger
         'ClassEmailImap = New clsEmailIMAP(pLogConfig)
         Fetcher = New MailFetcher(pLogConfig)
@@ -43,7 +43,7 @@ Public Class clsWorker
             ClassWindreamIndex = New clsWindream_Index(pLogConfig)
         End If
 
-        ClassWorkMail = New clsWorkEmail(pLogConfig, pConnectionString, pWindreamConnectionString, pUseWindream, pEmailAccountID, pEmailPrefix, pRejectionTemplateId)
+        ClassWorkMail = New clsWorkEmail(pLogConfig, pConnectionString, pWindreamConnectionString, pUseWindream, pEmailAccountID, pEmailPrefix, pRejectionTemplateId, pInfoTemplateId)
 
 
         Encryption = New clsEncryption("!35452didalog=", pLogConfig)
@@ -67,6 +67,7 @@ Public Class clsWorker
         TEMP_FILES.Clear()
     End Sub
 
+
     Private Function LoadEmailAccounts() As DataTable
         Return Database.GetDatatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
     End Function
@@ -86,7 +87,7 @@ Public Class clsWorker
     Public Sub Start_WorkingProfiles(Optional LocalEmail As Boolean = False)
         Try
             DeleteTempFiles()
-
+            IS_LOCAL_TEST = LocalEmail
             If Database.DBInitialized = False Then
                 Logger.Warn("Database is not initialized. Exiting.")
                 Exit Sub
@@ -197,7 +198,10 @@ Public Class clsWorker
                             If LocalEmail Then
                                 Logger.Info("Working with local Mail")
                                 Dim oEmail As IMail = New MailBuilder().CreateFromEmlFile(LocalEmlFile)
-                                ClassWorkMail.WorkEmailMessage(oEmail, 123456789, oValidationSql)
+
+
+                                Dim oUID = String.Concat(Now.Month.ToString, Now.Day, Now.Hour, Now.Minute, Now.Second)
+                                ClassWorkMail.WorkEmailMessage(oEmail, oUID, oValidationSql)
                                 'CURRENT_MAIL_MESSAGE = Nothing
                             Else
                                 Try

App/EmailProfiler.Form/Config.vb

@@ -15,6 +15,7 @@ Public Class Config
     ''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
     ''' </summary>
     Public Property RejectionTemplateId As Integer = 0
+    Public Property InfoTemplateId As Integer = 0
 
     Public Property EmailTestReceiver As String = ""
     Public Property EmailTestHTML As String = ""

App/EmailProfiler.Form/frmMain.resx

@@ -365,9 +365,6 @@
   <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
   </metadata>
-  <metadata name="TBEMLP_POLL_PROCESSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
-  </metadata>
   <metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1139, 56</value>
   </metadata>
@@ -460,70 +457,6 @@
         LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
-  <metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1021, 95</value>
-  </metadata>
-  <data name="XtraTabPage2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll
-        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv
-        cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg
-        eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog
-        ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci
-        IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi
-        IC8+DQogIDwvZz4NCjwvc3ZnPgs=
-</value>
-  </data>
-  <metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1175, 95</value>
-  </metadata>
-  <data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
-        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
-        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
-        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
-        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
-        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
-        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
-        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
-        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
-        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
-        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
-        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
-        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
-        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
-        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
-        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
-        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
-        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
-        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
-        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
-        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
-        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
-</value>
-  </data>
-  <metadata name="BindingNavigator6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>851, 173</value>
-  </metadata>
-  <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>180, 56</value>
-  </metadata>
-  <metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>623, 134</value>
-  </metadata>
-  <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>537, 95</value>
-  </metadata>
   <metadata name="TBEMLP_POLL_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>537, 95</value>
   </metadata>
@@ -594,9 +527,26 @@
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
-  </metadata>
+  <data name="XtraTabPage2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll
+        bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv
+        cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg
+        eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci
+        IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi
+        IC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
   <metadata name="TBEMLP_POLL_INDEXING_STEPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 134</value>
   </metadata>
@@ -665,6 +615,32 @@
         kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
         WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
         8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="XtraTabPage3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+
+        DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu
+        NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx
+        Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo
+        IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0
+        LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y
+        TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
 </value>
   </data>
   <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -740,9 +716,6 @@
   <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>239, 173</value>
   </metadata>
-  <metadata name="TBEMLP_CONFIGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>239, 173</value>
-  </metadata>
   <metadata name="TBEMLP_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1297, 134</value>
   </metadata>

App/EmailProfiler.Form/frmMain.vb

@@ -341,7 +341,7 @@ Public Class frmMain
             LogConfig.Debug = True
             Dim _work As New clsWorker(LogConfig, _SQLServerConString, _DBConfig.WindreamConnectionString, GUIDTextBox.Text,
                                        ConfigManager.Config.UseWindream, ToolStripEmailAccountID2.Text, "EmailProfilerTestClient",
-                                       ConfigManager.Config.EmailSenderLimitation, ConfigManager.Config.RejectionTemplateId)
+                                       ConfigManager.Config.EmailSenderLimitation, ConfigManager.Config.RejectionTemplateId, ConfigManager.Config.InfoTemplateId)
             _work.Start_WorkingProfiles()
 
         Else
@@ -349,7 +349,7 @@ Public Class frmMain
                 Logger.Info($"## Manual working on file {ofile} ... ")
                 Dim _work As New clsWorker(LogConfig, _SQLServerConString, _DBConfig.WindreamConnectionString, GUIDTextBox.Text,
                                            ConfigManager.Config.UseWindream, ToolStripEmailAccountID2.Text, "EmailProfilerTestClient",
-                                           ConfigManager.Config.EmailSenderLimitation, ConfigManager.Config.RejectionTemplateId, ofile)
+                                           ConfigManager.Config.EmailSenderLimitation, ConfigManager.Config.RejectionTemplateId, ConfigManager.Config.InfoTemplateId, ofile.ToString)
                 _work.Start_WorkingProfiles(True)
             Next
 

App/EmailProfiler.Service/Config.vb

@@ -1,9 +1,13 @@
-Public Class Config
+Imports DigitalData.Modules.Config.ConfigAttributes
+
+Public Class Config
+    <ConnectionString>
+    Public Property ConnectionString As String = ""
+
     Public Property Debug As Boolean = False
     Public Property EmailAccountId As Integer = 0
     Public Property EmailTitlePrefix As String = "EmailProfiler"
     Public Property EmailSenderLimitation As String = ""
-    Public Property ConnectionString As String = ""
     Public Property UseWindream As Boolean = False
 
     ''' <summary>
@@ -12,4 +16,6 @@
     ''' </summary>
     Public Property RejectionTemplateId As Integer = 0
 
+    Public Property EmailTestReceiver As String = ""
+    Public Property EmailTestHTML As String = ""
 End Class