MS Use without WM

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)