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

App/EmailProfiler.Common/Data/Config.vb

@@ -5,9 +5,13 @@ Public Class Config
     Public Property ConnectionString As String = ""
 
     Public Property Debug As Boolean = False
+
     Public Property EmailAccountId As Integer = 0
+
     Public Property EmailTitlePrefix As String = "EmailProfiler"
+
     Public Property EmailSenderLimitation As String = ""
+
     Public Property UseWindream As Boolean = False
 
     ''' <summary>
@@ -23,6 +27,7 @@ Public Class Config
     Public Property InfoTemplateId As Integer = 0
 
     Public Property EmailTestReceiver As String = ""
+
     Public Property EmailTestHTML As String = ""
 
     ''' <summary>

App/EmailProfiler.Common/Data/ConfigData.vb

@@ -1,39 +0,0 @@
-Imports DigitalData.Modules.Config.ConfigAttributes
-
-Public Class ConfigData
-    <ConnectionString>
-    Public Property ConnectionString As String = ""
-
-    Public Property Debug As Boolean = False
-
-    Public Property EmailAccountId As Integer = 0
-
-    Public Property EmailTitlePrefix As String = "EmailProfiler"
-
-    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
-
-    ''' <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 = ""
-
-    ''' <summary>
-    ''' Enthält die Version des GDPicture Modules,
-    ''' für das der Lizenzschlüssel aus TBDD_3RD_PARTY_MODULES
-    ''' gelesen werden soll.
-    ''' </summary>
-    Public Property GDPictureVersion As String = ""
-End Class

App/EmailProfiler.Common/EmailProfiler.Common.vbproj

@@ -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" />

App/EmailProfiler.Common/clsWorkEmail.vb

@@ -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

App/EmailProfiler.Common/clsWorker.vb

@@ -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)

App/EmailProfiler.Form/Config.vb

@@ -1,29 +0,0 @@
-Imports DigitalData.Modules.Config.ConfigAttributes
-
-Public Class Config
-    <ConnectionString>
-    Public Property ConnectionString As String = ""
-
-    Public Property Debug As Boolean = False
-    Public Property EmailAccountId As Integer = 0
-    Public Property EmailTitlePrefix As String = "EmailProfiler"
-    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 InfoTemplateId As Integer = 0
-
-    Public Property EmailTestReceiver As String = ""
-    Public Property EmailTestHTML As String = ""
-
-    ''' <summary>
-    ''' Enthält die Version des GDPicture Modules,
-    ''' für das der Lizenzschlüssel aus TBDD_3RD_PARTY_MODULES
-    ''' gelesen werden soll.
-    ''' </summary>
-    Public Property GDPictureVersion As String = ""
-End Class

App/EmailProfiler.Form/EmailProfiler.Form.vbproj

@@ -119,7 +119,6 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="Config.vb" />
     <Compile Include="frmMain.vb">
       <SubType>Form</SubType>
     </Compile>

App/EmailProfiler.Form/frmMain.vb

@@ -12,7 +12,7 @@ Imports EmailProfiler.Common
 Public Class frmMain
     Private Logger As Logger
     Private LogConfig As LogConfig
-    Private ConfigManager As ConfigManager(Of ConfigData)
+    Private ConfigManager As ConfigManager(Of Config)
     Private _database As MSSQLServer
     Private _Encryption As clsEncryption
     Private _windream As clsWindream_allgemein
@@ -28,7 +28,7 @@ Public Class frmMain
         Try
             LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName)
             _limilab = New Limilab(LogConfig)
-            ConfigManager = New ConfigManager(Of ConfigData)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
+            ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
 
             Logger = LogConfig.GetLogger()
             If ConfigManager.Config.Debug = True Then

App/EmailProfiler.Service/EmailProfiler.Service.vbproj

@@ -96,7 +96,6 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="Config.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>

App/EmailProfiler.Service/MyService.vb

@@ -17,8 +17,8 @@ Public Class MyService
 
     Private _DBConfig As ClassDBConfig.Config
 
-    Private ConfigManager As ConfigManager(Of ConfigData)
+    Private ConfigManager As ConfigManager(Of Config)
-    Private _ConfigData As ConfigData
+    Private _ConfigData As Config
 
     Private Database As MSSQLServer
 #End Region
@@ -31,7 +31,7 @@ Public Class MyService
 
             Logger.Info("Service started.")
 
-            ConfigManager = New ConfigManager(Of ConfigData)(LogConfig, My.Application.Info.DirectoryPath)
+            ConfigManager = New ConfigManager(Of Config)(LogConfig, My.Application.Info.DirectoryPath)
             _ConfigData = ConfigManager.Config
 
             If _ConfigData.ConnectionString = String.Empty Then

App/wisag_check_Att/Form1.vb

@@ -281,7 +281,7 @@ Public Class Form1
 
         Dim connectionString As String = "Server=SDD-VMP04-SQL17\DD_DEVELOP01;Database=DD_ECM;User Id=sa;Password=dd"
 
-        Dim oConfigData As ConfigData = New ConfigData() With {
+        Dim oConfigData As Config = New Config() With {
             .Debug = False,
             .GDPictureVersion = "11.2024",
             .UseWindream = False,

App/wisag_check_Att/TestClasses/ExtractAttachmentsFromEMLFile.vb

@@ -13,7 +13,7 @@ Public Class ExtractAttachmentsFromEMLFile
 
     End Sub
 
-    Public Sub CallWorkerProcess(pEMLFilename As String, pConfigData As ConfigData)
+    Public Sub CallWorkerProcess(pEMLFilename As String, pConfigData As Config)
 
         Dim oProfileIdForPolling = 1
         Dim oWorker As New clsWorker(_LogConfig,