MS Bugfixing mit Vektofeld Boolean

App/DigitalData.EMLProfiler/clsWorkEmail.vb

@@ -20,9 +20,6 @@ Public Class clsWorkEmail
         Try
             Logger = LogConf.GetLogger
             MyLogger = LogConf
-            If LogConf.Debug = True Then
-                Logger.Info("DEBUG Active")
-            End If
             _email = New clsEmail(LogConf)
             _DB_MSSQL = New clsDatabase(LogConf, ConStr)
             _windream = New clsWindream_allgemein(LogConf)
@@ -38,7 +35,6 @@ Public Class clsWorkEmail
     End Sub
     Public Function WORK_MAIL(MyEmailMessage As Message)
         Try
-
             Logger.Debug($"Starting WORK_MAIL...")
             CURRENT_MAIL_BODY_ALL = ""
             CURRENT_MAIL_BODY_ANSWER1 = ""
@@ -97,7 +93,14 @@ Public Class clsWorkEmail
             Dim TEMP_PROCESS_PROFILE_DT As DataTable = DT_POLL_PROCESS
             Dim PM_ROW As DataRow() = TEMP_PROCESS_PROFILE_DT.Select(oExpression)
             For Each row As DataRow In PM_ROW
-                WM_REFERENCE_INDEX = row("WM_REFERENCE_INDEX")
+
+                Try
+                    WM_REFERENCE_INDEX = row("WM_REFERENCE_INDEX")
+                Catch ex As Exception
+                    Logger.Debug($"PM_IN Attention WM_REFERENCE_INDEX seems to be Empty/null: {ex.Message}")
+                    WM_REFERENCE_INDEX = Nothing
+                End Try
+
                 WM_VECTOR_LOG = row("WM_VECTOR_LOG")
                 WM_OBJEKTTYPE = row("WM_OBJEKTTYPE")
                 WM_IDX_BODY_TEXT = row("WM_IDX_BODY_TEXT")
@@ -157,6 +160,7 @@ Public Class clsWorkEmail
                 Try
                     WM_REFERENCE_INDEX = oDataRow("WM_REFERENCE_INDEX")
                 Catch ex As Exception
+                    Logger.Debug($"Attention WM_REFERENCE_INDEX seems to be Empty/null: {ex.Message}")
                     WM_REFERENCE_INDEX = Nothing
                 End Try
                 Try
@@ -187,8 +191,11 @@ Public Class clsWorkEmail
     Private Function SAVE2TEMP()
         Try
             Dim oTempPath As String = Path.Combine(Path.GetTempPath, "DD_EmailProfiler")
+            Logger.Debug($"oTempPath is: {oTempPath} ...")
             If Directory.Exists(oTempPath) = False Then
                 Directory.CreateDirectory(oTempPath)
+            Else
+                Logger.Debug($"oTempPath [{oTempPath}] is already existing!!")
             End If
             Dim oFileEntries As String() = Directory.GetFiles(oTempPath)
             ' Process the list of files found in the directory.