MS24112015

Global_Indexer/ClassFilehandle.vb

@@ -53,6 +53,9 @@ Public Class ClassFilehandle
             Dim _msgEXAtt As New Msg.Message(msgname)
             _msgEXAtt.Attachments.Clear()
             _msgEXAtt.Save(tempfile)
+            'Datei in Array zum Templöschen speichern
+            TEMP_FILES.Add(tempfile)
+
             If Insert_GI_File(tempfile, msgonly) = True Then
                 erfolgreich = True
                 'Hier nun die Anhänge herauslösen
@@ -76,6 +79,8 @@ Public Class ClassFilehandle
                             File.Delete(tempfile)
                         End If
                         attachment.Save(tempfile)
+                        'Datei in Array zum Templöschen speichern
+                        TEMP_FILES.Add(tempfile)
                         If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
                         'nun der Insert des Anhanges
                         erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)