fix tempfile open forever lol

App/DigitalData.EMLProfiler/clsWorkEmail.vb

@@ -65,11 +65,14 @@ Public Class clsWorkEmail
             If oTempMailExists = True Then
                 Try
                     Dim oFS As FileStream = File.OpenRead(CURRENT_TEMP_MAIL_PATH)
+                    oFS.Close()
                     oTempMailAccessible = True
+                    Logger.Debug("Temp file is accessible!")
                 Catch ex As Exception
                     Logger.Error(ex)
                     Logger.Warn($"Could not read the Temp-Mail. Insufficient rights? Message: {ex.Message}")
                 End Try
+
                 If oTempMailAccessible = True Then
                     MessageError = False
                     If CURRENT_MAIL_SUBJECT.Contains("[PROCESSMANAGER]") Then