AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix tempfile open forever lol

Browse Source
This commit is contained in:
Jonathan Jenne
2021-08-09 14:16:19 +02:00
parent c2200ec1b4
commit 49541eaf9b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App/DigitalData.EMLProfiler/clsWorkEmail.vb
View File

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