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

Compare commits

base: AppStd:92b5a725372a19749782b0c5cb17becb0133e630
Branches Tags
AppStd:master
...
compare: AppStd:861f0125934ee0ad52966f634f8c9d7d1dababe8
Branches Tags
AppStd:master

2 Commits
92b5a72537 ... 861f012593

Author SHA1 Message Date
pitzm
861f012593 EMail Profiler: Version 2.15.0.0 2024-05-10 10:59:05 +02:00
pitzm
cd8761c3fe EMailProfiler Service: Neuer Config Schalter InfoTemplateId 2024-05-10 10:58:22 +02:00
3 changed files with 11 additions and 4 deletions
Show Stats Expand all files Collapse all files

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

@ -16,6 +16,12 @@ Public Class Config
''' </summary>
Public Property RejectionTemplateId As Integer = 0
''' <summary>
''' GUID des EMail Templates das bei Info-Mails verwendet wird.
''' Siehe Tabelle DD_ECM.dbo.TBDD_EMAIL_TEMPLATE
''' </summary>
Public Property InfoTemplateId As Integer = 0
Public Property EmailTestReceiver As String = ""
Public Property EmailTestHTML As String = ""
End Class

4
App/EmailProfiler.Service/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("SERV_EMAIL")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.14.0.0")>
<Assembly: AssemblyTrademark("2.15.0.0")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.14.0.0")>
<Assembly: AssemblyVersion("2.15.0.0")>
<Assembly: AssemblyFileVersion("2.10.0.0")>

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

@ -56,7 +56,7 @@ Public Class MyService
EmailWorker = New clsWorkEmail(LogConfig, Config.ConnectionString, DBConfig.WindreamConnectionString,
Config.UseWindream, Config.EmailAccountId, Config.EmailTitlePrefix,
Config.RejectionTemplateId)
Config.RejectionTemplateId, Config.InfoTemplateId)
Logger.Debug("Module Workmail initialized")
If Database.DBInitialized = False Then
@ -104,7 +104,8 @@ Public Class MyService
Config.EmailAccountId,
Config.EmailSenderLimitation,
Config.EmailTitlePrefix,
Config.RejectionTemplateId)
Config.RejectionTemplateId,
Config.InfoTemplateId)
oWorker.Start_WorkingProfiles()
Catch ex As Exception
Logger.Error(ex)