fix: make CURRENT_NEWFILENAME for email indexing

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