ms

App/SERV_EMAIL/MyService.vb

@@ -53,8 +53,9 @@ Public Class MyService
 
                 _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
                 _email = New clsEmail(MyLogger)
+                Logger.Debug("_database and _email initialized")
                 _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)
-
+                Logger.Debug("_workmail initialized")
                 If _database.Init(My.Settings.MyConnectionString) = False Then
                     Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
                 Else
@@ -77,7 +78,6 @@ Public Class MyService
                 End If
             End If
         Catch ex As Exception
-            EventLog.WriteEntry(Me.ServiceName, ex.ToString(), EventLogEntryType.Error)
             Logger.Error(ex)
         End Try
     End Sub