Compare commits

7 Commits

Author SHA1 Message Date
Jonathan Jenne
f23a5a3ec1 Version 2.4.2.6 2021-08-23 14:38:43 +02:00
Jonathan Jenne
133d461395 clear all files after indexing 2021-08-23 14:32:34 +02:00
Jonathan Jenne
77ece6ca83 Clear tempfiles in every case after index button has been clicked 2021-08-23 14:30:27 +02:00
Jonathan Jenne
8c5927530d Delete Email Tempfiles at successful indexing and at program end 2021-08-23 14:29:10 +02:00
Jonathan Jenne
0c850a11fc Version 2.4.2.5 2021-08-23 14:17:24 +02:00
Jonathan Jenne
b4c9b4f0b8 simplify saving attachments 2021-08-23 14:14:06 +02:00
Jonathan Jenne
7f3a73afd3 Version 2.4.2.4 2021-08-23 13:43:59 +02:00
4 changed files with 21 additions and 12 deletions

View File

@@ -29,11 +29,8 @@ Public Class ClassFilehandle
oResult = MessageBox.Show(oMessage, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
If oResult = MsgBoxResult.Yes Then
If pHandletype.StartsWith("|FW") Then
Return Save_EmailAndAttachmentsToDisk(pFilename, True)
Else
Return Save_EmailAndAttachmentsToDisk(pFilename)
End If
Dim oIsFolderWatch = pHandletype.StartsWith("|FW")
Return Save_EmailAndAttachmentsToDisk(pFilename, oIsFolderWatch)
End If
End If
End If

View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.2.3")>
<Assembly: AssemblyVersion("2.4.2.6")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

View File

@@ -2705,8 +2705,6 @@ Public Class frmIndex
ClearError()
ClearNotice()
Me.Cursor = Cursors.WaitCursor
ClassHelper.Refresh_RegexTable()
For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows
@@ -2740,8 +2738,6 @@ Public Class frmIndex
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
End If
'DTACTUAL_FILES.Clear()
DocumentViewer1.CloseDocument()
DocumentViewer1.Done()
@@ -2761,8 +2757,6 @@ Public Class frmIndex
End If
End If
EMAIL.Clear_TempFiles()
DocumentViewer1.CloseDocument()
DocumentViewer1.Done()
@@ -2770,9 +2764,25 @@ Public Class frmIndex
Me.Close()
End If
End If
' Clear all temp files after indexing
Clear_Tempfiles()
EMAIL.Clear_TempFiles()
Me.Cursor = Cursors.Default
End Sub
Private Sub Clear_Tempfiles()
'TempDateien löschen
For Each oFile In TEMP_FILES
Try
System.IO.File.Delete(oFile)
Catch ex As Exception
LOGGER.Error(ex)
End Try
Next
End Sub
Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
SetFilePreview(checkItemPreview.Checked)
CONFIG.Config.FilePreview = checkItemPreview.Checked

View File

@@ -254,6 +254,8 @@ Public Class frmStart
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
EMAIL.Clear_TempFiles()
'TempDateien löschen
For Each oFile In TEMP_FILES
Try