From 49541eaf9be33801a21702fe9e22b806ac8830a3 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 9 Aug 2021 14:16:19 +0200
Subject: [PATCH] fix tempfile open forever lol

---
 App/DigitalData.EMLProfiler/clsWorkEmail.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/App/DigitalData.EMLProfiler/clsWorkEmail.vb b/App/DigitalData.EMLProfiler/clsWorkEmail.vb
index 881d2d0..6e9eb03 100644
--- a/App/DigitalData.EMLProfiler/clsWorkEmail.vb
+++ b/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