AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS EMail SMTP

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-03-14 22:00:57 +01:00
parent 3312ebc569
commit fcd44e78ff
2 changed files with 96 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
DD_CommunicationService/MyComService.vb
View File

@@ -14,6 +14,12 @@ Public Class MyComService
' ausführen, damit der Dienst gestartet werden kann.
Try
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
If My.Settings.LOG_ERRORS_ONLY = False Then
_MyLogger.Debug = True
Else
_MyLogger.Debug = False
End If
_Logger = _MyLogger.GetLogger()
_firebird = New Firebird(_MyLogger, My.Settings.FB_ConnString, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
_Email = New Email(_MyLogger)
@@ -61,7 +67,12 @@ Public Class MyComService
Try
_MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
_Logger = _MyLogger.GetLogger()
_MyLogger.Debug = My.Settings.LOG_ERRORS_ONLY
If My.Settings.LOG_ERRORS_ONLY = False Then
_MyLogger.Debug = True
Else
_MyLogger.Debug = False
End If
_Email = New Email(_MyLogger)
_firebird = New Firebird(_MyLogger, My.Settings.FB_ConnString, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
If _firebird._DBInitialized = False Then
_Logger.Warn("Firebird-DB could not be intitialized!")