MS_19.10

app/DD-Record-Organiser/ClassDragDrop.vb

@@ -81,6 +81,7 @@ Public Class ClassDragDrop
                         Console.WriteLine(">> Drop of a mailattachment - File")
                         ReDim Preserve files_dropped(0)
                         files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile
+                        TEMP_FILES.Add(strOutFile)
                         If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
                         Return files_dropped
                     Else
@@ -102,9 +103,9 @@ Public Class ClassDragDrop
                     'hardcode a destination path for testing
                     Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (myobj.Subject + ".msg").Replace(":", ""))
                     myobj.SaveAs(strFile)
+                    TEMP_FILES.Add(strFile)
                     ReDim Preserve files_dropped(i)
                     files_dropped(i) = "@OUTLOOKMESSAGE@" & strFile
-
                 Next
                 Return files_dropped
             End If