MS Use without WM

App/SERV_EMAIL/App.config

@@ -29,6 +29,9 @@
             <setting name="DEBUG" serializeAs="String">
                 <value>False</value>
             </setting>
+            <setting name="USE_WM" serializeAs="String">
+                <value>False</value>
+            </setting>
         </SERV_EMAIL.My.MySettings>
     </applicationSettings>
 </configuration>

App/SERV_EMAIL/My Project/Settings.Designer.vb

@@ -109,6 +109,15 @@ Namespace My
                 Return CType(Me("DEBUG"),Boolean)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public ReadOnly Property USE_WM() As Boolean
+            Get
+                Return CType(Me("USE_WM"),Boolean)
+            End Get
+        End Property
     End Class
 End Namespace
 

App/SERV_EMAIL/My Project/Settings.settings

@@ -25,5 +25,8 @@
     <Setting Name="DEBUG" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">False</Value>
     </Setting>
+    <Setting Name="USE_WM" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

App/SERV_EMAIL/MyService.vb

@@ -24,6 +24,21 @@ Public Class MyService
         Try
             MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DD EmailProfiler")
             Logger = MyLogger.GetLogger
+
+            Try
+                Dim directory As New IO.DirectoryInfo(MyLogger.LogDirectory)
+
+                For Each file As IO.FileInfo In directory.GetFiles
+                    If (Now - file.CreationTime).Days > 29 Then
+                        file.Delete()
+                    Else
+                        Exit For
+                    End If
+                Next
+            Catch ex As Exception
+
+            End Try
+
             Logger.Info("## Service started  ## ")
 
             If My.Settings.MyConnectionString = String.Empty Then
@@ -38,7 +53,7 @@ Public Class MyService
 
                 _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
                 _email = New clsEmail(MyLogger)
-                _workmail = New clsWorkEmail(MyLogger, My.Settings.MyConnectionString, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
+                _workmail = New clsWorkEmail(MyLogger, My.Settings.MyConnectionString, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM)
 
                 If _database.Init(My.Settings.MyConnectionString) = False Then
                     Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
@@ -74,7 +89,7 @@ Public Class MyService
     Public Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
         Try
             Dim notcompleted As Boolean = False
-            Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
+            Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM)
             _work.Start_WorkingProfiles()
         Catch ex As Exception
             Logger.Error(ex)

App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.dll.config

@@ -16,13 +16,8 @@
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>
         <assemblyIdentity name="FirebirdSql.Data.FirebirdClient" publicKeyToken="3750abcc3150b00c" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-6.3.0.0" newVersion="6.3.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-7.5.0.0" newVersion="7.5.0.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>
-<system.data>
-		<DbProviderFactories>
-			<remove invariant="FirebirdSql.Data.FirebirdClient" />
-			<add name="FirebirdClient Data Provider" invariant="FirebirdSql.Data.FirebirdClient" description=".NET Framework Data Provider for Firebird" type="FirebirdSql.Data.FirebirdClient.FirebirdClientFactory, FirebirdSql.Data.FirebirdClient" />
-		</DbProviderFactories>
-	</system.data></configuration>
+</configuration>

App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe.config

@@ -29,6 +29,9 @@
             <setting name="DEBUG" serializeAs="String">
                 <value>False</value>
             </setting>
+            <setting name="USE_WM" serializeAs="String">
+                <value>False</value>
+            </setting>
         </SERV_EMAIL.My.MySettings>
     </applicationSettings>
 </configuration>

App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+194f0e0b9909d26a065a24a0efa14204b59b0794

App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt

@@ -37,7 +37,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\S22.Im
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\DigitalData.Modules.Database.pdb
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\DigitalData.Modules.Database.xml
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\DigitalData.Modules.Database.dll.config
-E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\FirebirdSql.Data.FirebirdClient.pdb
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.Resources.resources
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.MyService.resources
 E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.ProjectInstaller.resources