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
+ '''
+ ''' GUID des EMail Templates das bei Ablehnungsmails verwendet wird.
+ ''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
+ '''
+ 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
+
+ '''
+ ''' GUID des EMail Templates das bei Ablehnungsmails verwendet wird.
+ ''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
+ '''
+ 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)