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

MS Bugfixing mit Vektofeld Boolean

Browse Source
This commit is contained in:
SchreiberM
2019-12-20 10:08:48 +01:00
parent e743baf415
commit 37693a8fc0
47 changed files with 462 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
App/DigitalData.EMLProfiler/clsWorker.vb
View File

@@ -129,7 +129,6 @@ Public Class clsWorker
pollresult = _email.POP3_COLLECT()
Case "IMAP"
'pollresult = _emailIMAP.IMAP_COLLECT()
' 09.04.19: Use S22.Imap instead of IndependentSoft ImapClient
pollresult = _emailIMAP.FetchIMAPMessagesIsoft(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_INBOX_NAME)
End Select
End If
@@ -162,9 +161,28 @@ Public Class clsWorker
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
Try
Dim oDiTempPath As New IO.DirectoryInfo(System.IO.Path.GetTempPath)
Dim oaryFi As IO.FileInfo() = oDiTempPath.GetFiles()
Dim ofi As IO.FileInfo
For Each fi In oaryFi
Try
fi.Delete()
Catch ex As Exception
Logger.Warn($"SWP1 - Could not delete the tempfile: {ex.Message}")
End Try
Next
Catch ex As Exception
Logger.Warn($"SWP2 - Could not delete the tempfile: {ex.Message}")
End Try
Catch ex As Exception
Logger.Warn($"SWP - Could not delete the tempfile from TEMP_FILES: {ex.Message}")
End Try
Else
Logger.Info("No active profiles")
End If