emailService bisl logging

Services.EmailService/EmailService.vb

@@ -119,6 +119,7 @@ Public Class EmailService
 
             If _AnyDatabaseInitialized Then
                 _Logger.Info("Starting Initial Run...")
+                _ConfigManager.Save()
                 _EmailQueue.RunWorkerAsync()
             End If
         Catch ex As Exception
@@ -356,7 +357,7 @@ Public Class EmailService
                     Dim oResult As Mail.MailSession.SessionInfo = _MailSender.Connect(oAccount.Server, oAccount.Port, oAccount.Username, oAccount.Password, oAccount.AuthType, oOptions)
 
                     If oResult.Connected = False Then
-                        _Logger.Warn("Could not connect to server. Skipping.")
+                        _Logger.Warn("Could not connect to server! (Method: Mail.MailSession.SessionInfo) # Skipping...")
                         Continue For
 
                     End If