diff --git a/Services.EmailService/App.config b/Services.EmailService/App.config
index c5280b07..de887fe0 100644
--- a/Services.EmailService/App.config
+++ b/Services.EmailService/App.config
@@ -1,6 +1,9 @@
+
+
+
@@ -13,4 +16,11 @@
+
+
+
+ SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_ADRESS <> '' and REMINDER_TYPE_ID = 202377 AND EMAIL_SENT IS NULL
+
+
+
diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb
index 123e0b73..0a2675a8 100644
--- a/Services.EmailService/EmailService.vb
+++ b/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
diff --git a/Services.EmailService/My Project/AssemblyInfo.vb b/Services.EmailService/My Project/AssemblyInfo.vb
index 5f4fafd8..00425d4c 100644
--- a/Services.EmailService/My Project/AssemblyInfo.vb
+++ b/Services.EmailService/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'
-
+
diff --git a/Services.EmailService/My Project/Settings.Designer.vb b/Services.EmailService/My Project/Settings.Designer.vb
index a7bdc920..c10eab6c 100644
--- a/Services.EmailService/My Project/Settings.Designer.vb
+++ b/Services.EmailService/My Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
_
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -53,6 +53,16 @@ Namespace My
Return defaultInstance
End Get
End Property
+
+ '' and REMINDER_TYPE_ID = 20"& _
+ "2377 AND EMAIL_SENT IS NULL")> _
+ Public ReadOnly Property MSSQL_SELECT() As String
+ Get
+ Return CType(Me("MSSQL_SELECT"),String)
+ End Get
+ End Property
End Class
End Namespace
diff --git a/Services.EmailService/My Project/Settings.settings b/Services.EmailService/My Project/Settings.settings
index f7f176ac..4e8a91bc 100644
--- a/Services.EmailService/My Project/Settings.settings
+++ b/Services.EmailService/My Project/Settings.settings
@@ -1,5 +1,9 @@
-
+
-
+
+
+ SELECT * FROM TBEMLP_EMAIL_OUT WHERE EMAIL_ADRESS <> '' and REMINDER_TYPE_ID = 202377 AND EMAIL_SENT IS NULL
+
+
\ No newline at end of file