MS Common VS 3.0

App/EmailProfiler.Common/clsWorker.vb

@@ -67,6 +67,7 @@ Public Class clsWorker
         TEMP_FILES.Clear()
     End Sub
 
+
     Private Function LoadEmailAccounts() As DataTable
         Return Database.GetDatatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
     End Function
@@ -86,7 +87,7 @@ Public Class clsWorker
     Public Sub Start_WorkingProfiles(Optional LocalEmail As Boolean = False)
         Try
             DeleteTempFiles()
-
+            IS_LOCAL_TEST = LocalEmail
             If Database.DBInitialized = False Then
                 Logger.Warn("Database is not initialized. Exiting.")
                 Exit Sub
@@ -197,7 +198,10 @@ Public Class clsWorker
                             If LocalEmail Then
                                 Logger.Info("Working with local Mail")
                                 Dim oEmail As IMail = New MailBuilder().CreateFromEmlFile(LocalEmlFile)
-                                ClassWorkMail.WorkEmailMessage(oEmail, 123456789, oValidationSql)
+
+
+                                Dim oUID = String.Concat(Now.Month.ToString, Now.Day, Now.Hour, Now.Minute, Now.Second)
+                                ClassWorkMail.WorkEmailMessage(oEmail, oUID, oValidationSql)
                                 'CURRENT_MAIL_MESSAGE = Nothing
                             Else
                                 Try