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

Defaultwert für E-Mails ohne Betreff - frmIndex

Browse Source
This commit is contained in:
OlgunR
2025-05-06 16:36:52 +02:00
parent 623672ded9
commit 199904b695
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/frmIndex.vb
View File

@@ -922,13 +922,13 @@ Public Class frmIndex
Next Next
End If End If
If DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or CURRENT_NEWFILENAME.ToUpper.EndsWith(".MSG") Or CURRENT_NEWFILENAME.ToUpper.EndsWith(".EML") Then If DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|" Or CURRENT_NEWFILENAME.ToUpper.EndsWith(".MSG") Or CURRENT_NEWFILENAME.ToUpper.EndsWith(".EML") Then
indexierung_erfolgreich = SetEmailIndicies(pIndexAttachment:=False) indexierung_erfolgreich = SetEmailIndicies(False)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
Return False Return False
End If End If
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
indexierung_erfolgreich = SetEmailIndicies(pIndexAttachment:=True) indexierung_erfolgreich = SetEmailIndicies(True)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
Return False Return False
@@ -960,17 +960,18 @@ Public Class frmIndex
Dim oTable As DataTable = DATABASE_ECM.GetDatatable(oSQL) Dim oTable As DataTable = DATABASE_ECM.GetDatatable(oSQL)
If IsNothing(oTable) Then If IsNothing(oTable) Then
_Logger.Info("Could not get Email Indicies for DocType = [{0}]. Exiting.", CURR_DOKART_OBJECTTYPE) _Logger.Info("Could not get Email Indicies for OBJECTTYPE = [{0}]. Exiting.", CURR_DOKART_OBJECTTYPE)
Return False Return False
End If End If
If oTable.Rows.Count = 0 Then If oTable.Rows.Count = 0 Then
LOGGER.Warn("Could not get Email Indicies for DocType = [{0}]. Exiting.") LOGGER.Warn("Could not get Email Indicies for OBJECTTYPE = [{0}]. Exiting.", CURR_DOKART_OBJECTTYPE)
MsgBox($"Definition von Email Indizes für den Objekttyp [{oTable}] fehlt." + vbNewLine + "Bitte informieren Sie Ihren Systembetreuer.", MsgBoxStyle.Critical)
Return False Return False
End If End If
If oTable.Rows.Count > 1 Then If oTable.Rows.Count > 1 Then
LOGGER.Warn("Got multiple rows for Email Indicies for DocType = [{0}]. Exiting.") LOGGER.Warn("Got multiple rows for Email Indicies for OBJECTTYPE = [{0}]. Exiting.", CURR_DOKART_OBJECTTYPE)
Return False Return False
End If End If
@@ -1004,13 +1005,18 @@ Public Class frmIndex
CURRENT_MESSAGEID = oMessageId CURRENT_MESSAGEID = oMessageId
CURRENT_MESSAGEDATE = oDateIn CURRENT_MESSAGEDATE = oDateIn
If oSubject IsNot Nothing Then
CURRENT_MESSAGESUBJECT = oSubject CURRENT_MESSAGESUBJECT = oSubject
Else
CURRENT_MESSAGESUBJECT = "<No Subject>"
End If
oIndexNames = New Dictionary(Of String, Object) From { oIndexNames = New Dictionary(Of String, Object) From {
{"IDX_EMAIL_ID", oMessageId}, {"IDX_EMAIL_ID", oMessageId},
{"IDX_EMAIL_FROM", oMessageFrom}, {"IDX_EMAIL_FROM", oMessageFrom},
{"IDX_EMAIL_TO", oMessageTo}, {"IDX_EMAIL_TO", oMessageTo},
{"IDX_EMAIL_SUBJECT", oSubject}, {"IDX_EMAIL_SUBJECT", CURRENT_MESSAGESUBJECT},
{"IDX_EMAIL_DATE_IN", oDateIn} {"IDX_EMAIL_DATE_IN", oDateIn}
} }
Else Else