JJ

App/SERV_EMAIL/App.config

@@ -38,6 +38,9 @@
             <setting name="EmailProfilerPraefix" serializeAs="String">
                 <value>EmailProfiler</value>
             </setting>
+            <setting name="EML_LIMITATION_SENDER" serializeAs="String">
+                <value>NONE</value>
+            </setting>
         </SERV_EMAIL.My.MySettings>
     </applicationSettings>
 </configuration>

App/SERV_EMAIL/My Project/Settings.Designer.vb

@@ -136,6 +136,15 @@ Namespace My
                 Return CType(Me("EmailProfilerPraefix"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("NONE")>  _
+        Public ReadOnly Property EML_LIMITATION_SENDER() As String
+            Get
+                Return CType(Me("EML_LIMITATION_SENDER"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

App/SERV_EMAIL/My Project/Settings.settings

@@ -34,5 +34,8 @@
     <Setting Name="EmailProfilerPraefix" Type="System.String" Scope="Application">
       <Value Profile="(Default)">EmailProfiler</Value>
     </Setting>
+    <Setting Name="EML_LIMITATION_SENDER" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">NONE</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

App/SERV_EMAIL/MyService.vb

@@ -88,7 +88,7 @@ Public Class MyService
     Public Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
         Try
             Dim notcompleted As Boolean = False
-            Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix)
+            Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix)
             _work.Start_WorkingProfiles()
         Catch ex As Exception
             Logger.Error(ex)