Compare commits

9 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
Jonathan Jenne
90eb5d18ec Version 2.4.2.3 2021-08-23 10:59:14 +02:00
Jonathan Jenne
a732db2171 Include Mail.dll in installer 2021-08-23 10:59:07 +02:00
5 changed files with 22 additions and 13 deletions

View File

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

View File

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

View File

@@ -2705,8 +2705,6 @@ Public Class frmIndex
ClearError() ClearError()
ClearNotice() ClearNotice()
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
ClassHelper.Refresh_RegexTable() ClassHelper.Refresh_RegexTable()
For Each rowregex As DataRow In CURRENT_DT_REGEX.Rows 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") MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
End If End If
'DTACTUAL_FILES.Clear()
DocumentViewer1.CloseDocument() DocumentViewer1.CloseDocument()
DocumentViewer1.Done() DocumentViewer1.Done()
@@ -2761,8 +2757,6 @@ Public Class frmIndex
End If End If
End If End If
EMAIL.Clear_TempFiles()
DocumentViewer1.CloseDocument() DocumentViewer1.CloseDocument()
DocumentViewer1.Done() DocumentViewer1.Done()
@@ -2770,9 +2764,25 @@ Public Class frmIndex
Me.Close() Me.Close()
End If End If
End If End If
' Clear all temp files after indexing
Clear_Tempfiles()
EMAIL.Clear_TempFiles()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub 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 Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
SetFilePreview(checkItemPreview.Checked) SetFilePreview(checkItemPreview.Checked)
CONFIG.Config.FilePreview = 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) MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
EMAIL.Clear_TempFiles()
'TempDateien löschen 'TempDateien löschen
For Each oFile In TEMP_FILES For Each oFile In TEMP_FILES
Try Try

View File

@@ -133,8 +133,8 @@
<!--Verschiedene Bibliotheken--> <!--Verschiedene Bibliotheken-->
<Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275"> <Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
<File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.2.0.570.21482.dll" KeyPath="yes" />
<File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" /> <File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
<File Id="Limilabs.Mail" Name="Mail.dll" Source="Mail.dll" KeyPath="no" />
</Component> </Component>
<!--WINDREAM Bibliotheken--> <!--WINDREAM Bibliotheken-->