MS Version 1.6.0.0 MySettings SQL

Services.EmailService/EmailService.vb

@@ -292,7 +292,13 @@ Public Class EmailService
                     oSQL = "SELECT * FROM TBEDM_EMAIL_QUEUE WHERE EMAIL_SENT IS NULL and EMAIL_TO <> ''"
                     oEmailQueue = _Firebird.GetDatatable(oSQL)
                 Case DatabaseType.MSSQL
-                    oSQL = "SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_SENT IS NULL and EMAIL_ADRESS <> ''"
+                    If My.Settings.MSSQL_SELECT <> String.Empty Then
+                        _Logger.Info("My.Settings.MSSQL_SELECT will be used..")
+                        oSQL = My.Settings.MSSQL_SELECT
+                    Else
+                        oSQL = "SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_SENT IS NULL and EMAIL_ADRESS <> ''"
+                    End If
+
                     oEmailQueue = MSSQLInstance.GetDatatable(oSQL)
             End Select