MS EmailFunctions

- ZuGferd Service
- Windream

Services.ZUGFeRDService/ThreadRunner.vb

@@ -112,7 +112,7 @@ Public Class ThreadRunner
             Dim args As WorkerArgs = e.Argument
 
             _logger.Debug("Background worker running..")
-            Dim job As New ImportZUGFeRDFiles(_logConfig, _firebird, _mssql)
+            Dim job As New ImportZUGFeRDFiles(_logConfig, _firebird, My.Settings.MSSQLEmailOutAccountID, _mssql)
             job.Start(args)
         Catch ex As Exception
             _logger.Warn("Background worker failed!")