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

moar logging

Browse Source
This commit is contained in:
Jonathan Jenne 2019-12-05 16:02:56 +01:00
parent 632472e397
commit 7679550160
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
DDEmailService/EmailService.vb
View File

@ -137,14 +137,17 @@ Public Class EmailService
Private Sub EmailQueue_DoWork(sender As Object, e As DoWorkEventArgs) Private Sub EmailQueue_DoWork(sender As Object, e As DoWorkEventArgs)
Try Try
If _Firebird?._DBInitialized Then If _Firebird?._DBInitialized Then
_Logger.Info("Starting Firebird Sending")
SendEmailFrom(DatabaseType.Firebird, Nothing) SendEmailFrom(DatabaseType.Firebird, Nothing)
End If End If
If _MSSQL?.DBInitialized Then If _MSSQL?.DBInitialized Then
_Logger.Info("Starting MSSQL Sending")
SendEmailFrom(DatabaseType.MSSQL, _MSSQL) SendEmailFrom(DatabaseType.MSSQL, _MSSQL)
End If End If
If _MSSQL_Test?.DBInitialized Then If _MSSQL_Test?.DBInitialized Then
_Logger.Info("Starting MSSQL Test Sending")
SendEmailFrom(DatabaseType.MSSQL, _MSSQL_Test) SendEmailFrom(DatabaseType.MSSQL, _MSSQL_Test)
End If End If
Catch ex As Exception Catch ex As Exception