From 2b88a16e53a324476eaf20d9e21eb602fac6cb05 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 3 Mar 2021 15:33:38 +0100
Subject: [PATCH] fix: make CURRENT_NEWFILENAME for email indexing

---
 Global_Indexer/frmIndex.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb
index 8928618..6993f87 100644
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -697,6 +697,9 @@ Public Class frmIndex
     End Function
     Private Function Write_Indizes()
         Try
+            _Logger.NewBlock("Write_Indizes")
+            _Logger.Info("Indexing file [{0}]", CURRENT_NEWFILENAME)
+
             Dim indexierung_erfolgreich As Boolean = False
             'Manuelle Indexe Indexieren
             Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN
@@ -833,6 +836,8 @@ Public Class frmIndex
         Catch ex As Exception
             ShowErrorMessage(ex, "Write_Indizes")
             Return False
+        Finally
+            _Logger.EndBlock()
         End Try
         Return True
     End Function
@@ -851,7 +856,8 @@ Public Class frmIndex
         Dim indexierung_erfolgreich As Boolean = False
         Dim _step As String = "1"
         Try
-            Dim msg As Msg.Message = New Msg.Message(CURRENT_NEWFILENAME)
+            Dim oTempPath As String = Path.Combine("\\windream\objects", CURRENT_NEWFILENAME)
+            Dim msg As Msg.Message = New Msg.Message(oTempPath)
             Dim msgDisplayTo = msg.DisplayTo
             Dim msgInternetAccountName = msg.InternetAccountName
             If LogErrorsOnly = False Then