EMailProfiler.Common: Die Config-Klasse MUSS Config heißen

This commit is contained in:
2025-01-17 14:25:20 +01:00
parent c42440968f
commit a73b8f5a16
12 changed files with 15 additions and 80 deletions

View File

@@ -1,6 +1,6 @@
Imports DigitalData.Modules.Config.ConfigAttributes
Public Class ConfigData
Public Class Config
<ConnectionString>
Public Property ConnectionString As String = ""

View File

@@ -120,7 +120,7 @@
<Compile Include="ClassDBConfig.vb" />
<Compile Include="ClassCurrent.vb" />
<Compile Include="clsEmail.IMAP.vb" />
<Compile Include="Data\ConfigData.vb" />
<Compile Include="Data\Config.vb" />
<Compile Include="Data\EmailAttachment.vb" />
<Compile Include="Enum\EmailStrings.vb" />
<Compile Include="clsEncryption.vb" />

View File

@@ -55,7 +55,7 @@ Public Class clsWorkEmail
Private _worked_email As Boolean = False
Sub New(LogConf As LogConfig, ConStr As String, WmConStr As String, pConfigData As ConfigData)
Sub New(LogConf As LogConfig, ConStr As String, WmConStr As String, pConfigData As Config)
Try
_Logger = LogConf.GetLogger
_LogConfig = LogConf

View File

@@ -24,7 +24,7 @@ Public Class clsWorker
Private ReadOnly LocalEmlFile As String = ""
Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pConfigData As ConfigData, Optional pLocalEML As String = "")
Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pConfigData As Config, Optional pLocalEML As String = "")
_Logger = pLogConfig.GetLogger
'ClassEmailImap = New clsEmailIMAP(pLogConfig)
_Fetcher = New MailFetcher(pLogConfig)