AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

EMail Profiler: Konfiguration erweitert (RejectionTemplateId)

Browse Source
This commit is contained in:
PitzM 2024-04-24 11:18:48 +02:00
parent 0db24f53e9
commit 79edfe385a
4 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
App/EmailProfiler.Form/Config.vb
View File

@ -10,6 +10,12 @@ Public Class Config
Public Property EmailSenderLimitation As String = "" Public Property EmailSenderLimitation As String = ""
Public Property UseWindream As Boolean = False 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 EmailTestReceiver As String = ""
Public Property EmailTestHTML As String = "" Public Property EmailTestHTML As String = ""
End Class End Class

8
App/EmailProfiler.Form/frmMain.vb
View File

@ -339,13 +339,17 @@ Public Class frmMain
If _RunwithLocalemail = False Then If _RunwithLocalemail = False Then
LogConfig.Debug = True 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() _work.Start_WorkingProfiles()
Else Else
For Each ofile As String In _Worklist For Each ofile As String In _Worklist
Logger.Info($"## Manual working on file {ofile} ... ") 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) _work.Start_WorkingProfiles(True)
Next Next

7
App/EmailProfiler.Service/Config.vb
View File

@ -5,4 +5,11 @@
Public Property EmailSenderLimitation As String = "" Public Property EmailSenderLimitation As String = ""
Public Property ConnectionString As String = "" Public Property ConnectionString As String = ""
Public Property UseWindream As Boolean = False 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 End Class

6
App/EmailProfiler.Service/MyService.vb
View File

@ -55,7 +55,8 @@ Public Class MyService
End If End If
EmailWorker = New clsWorkEmail(LogConfig, Config.ConnectionString, DBConfig.WindreamConnectionString, 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") Logger.Debug("Module Workmail initialized")
If Database.DBInitialized = False Then If Database.DBInitialized = False Then
@ -102,7 +103,8 @@ Public Class MyService
Config.UseWindream, Config.UseWindream,
Config.EmailAccountId, Config.EmailAccountId,
Config.EmailSenderLimitation, Config.EmailSenderLimitation,
Config.EmailTitlePrefix) Config.EmailTitlePrefix,
Config.RejectionTemplateId)
oWorker.Start_WorkingProfiles() oWorker.Start_WorkingProfiles()
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)