delete more crap

.vs/ProjectSettings.json

@@ -1,3 +0,0 @@
-{
-  "CurrentProjectSetting": null
-}

.vs/VSWorkspaceState.json

@@ -1,8 +0,0 @@
-{
-  "ExpandedNodes": [
-    "",
-    "\\App"
-  ],
-  "SelectedNode": "\\App\\SERV_EMAIL.sln",
-  "PreviewInSolutionExplorer": false
-}

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