From 79edfe385a46ad71767f3a87bfb31fb21ab54459 Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Wed, 24 Apr 2024 11:18:48 +0200
Subject: [PATCH] EMail Profiler: Konfiguration erweitert (RejectionTemplateId)

---
 App/EmailProfiler.Form/Config.vb       | 6 ++++++
 App/EmailProfiler.Form/frmMain.vb      | 8 ++++++--
 App/EmailProfiler.Service/Config.vb    | 7 +++++++
 App/EmailProfiler.Service/MyService.vb | 6 ++++--
 4 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/App/EmailProfiler.Form/Config.vb b/App/EmailProfiler.Form/Config.vb
index dc236b5..0bfcce9 100644
--- a/App/EmailProfiler.Form/Config.vb
+++ b/App/EmailProfiler.Form/Config.vb
@@ -10,6 +10,12 @@ Public Class Config
     Public Property EmailSenderLimitation As String = ""
     Public Property UseWindream As Boolean = False
 
+    ''' <summary>
+    ''' GUID des EMail Templates das bei Ablehnungsmails verwendet wird.
+    ''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
+    ''' </summary>
+    Public Property RejectionTemplateId As Integer = 0
+
     Public Property EmailTestReceiver As String = ""
     Public Property EmailTestHTML As String = ""
 End Class
diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb
index 27ed16b..e991c0a 100644
--- a/App/EmailProfiler.Form/frmMain.vb
+++ b/App/EmailProfiler.Form/frmMain.vb
@@ -339,13 +339,17 @@ Public Class frmMain
         If _RunwithLocalemail = False Then
 
             LogConfig.Debug = True
-            Dim _work As New clsWorker(LogConfig, _SQLServerConString, _DBConfig.WindreamConnectionString, GUIDTextBox.Text, ConfigManager.Config.UseWindream, ToolStripEmailAccountID2.Text, "EmailProfilerTestClient", ConfigManager.Config.EmailSenderLimitation)
+            Dim _work As New clsWorker(LogConfig, _SQLServerConString, _DBConfig.WindreamConnectionString, GUIDTextBox.Text,
+                                       ConfigManager.Config.UseWindream, ToolStripEmailAccountID2.Text, "EmailProfilerTestClient",
+                                       ConfigManager.Config.EmailSenderLimitation, ConfigManager.Config.RejectionTemplateId)
             _work.Start_WorkingProfiles()
 
         Else
             For Each ofile As String In _Worklist
                 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, 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)
                 _work.Start_WorkingProfiles(True)
             Next
 
diff --git a/App/EmailProfiler.Service/Config.vb b/App/EmailProfiler.Service/Config.vb
index 1d97ea6..8057b97 100644
--- a/App/EmailProfiler.Service/Config.vb
+++ b/App/EmailProfiler.Service/Config.vb
@@ -5,4 +5,11 @@
     Public Property EmailSenderLimitation As String = ""
     Public Property ConnectionString As String = ""
     Public Property UseWindream As Boolean = False
+
+    ''' <summary>
+    ''' GUID des EMail Templates das bei Ablehnungsmails verwendet wird.
+    ''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
+    ''' </summary>
+    Public Property RejectionTemplateId As Integer = 0
+
 End Class
diff --git a/App/EmailProfiler.Service/MyService.vb b/App/EmailProfiler.Service/MyService.vb
index 71c5fca..d5ca510 100644
--- a/App/EmailProfiler.Service/MyService.vb
+++ b/App/EmailProfiler.Service/MyService.vb
@@ -55,7 +55,8 @@ Public Class MyService
                 End If
 
                 EmailWorker = New clsWorkEmail(LogConfig, Config.ConnectionString, DBConfig.WindreamConnectionString,
-                                             Config.UseWindream, Config.EmailAccountId, Config.EmailTitlePrefix)
+                                                Config.UseWindream, Config.EmailAccountId, Config.EmailTitlePrefix,
+                                                Config.RejectionTemplateId)
                 Logger.Debug("Module Workmail initialized")
 
                 If Database.DBInitialized = False Then
@@ -102,7 +103,8 @@ Public Class MyService
                                          Config.UseWindream,
                                          Config.EmailAccountId,
                                          Config.EmailSenderLimitation,
-                                         Config.EmailTitlePrefix)
+                                         Config.EmailTitlePrefix,
+                                         Config.RejectionTemplateId)
             oWorker.Start_WorkingProfiles()
         Catch ex As Exception
             Logger.Error(ex)