From 9b8a780f06264eacf273c9b1e1db847eb414f71c Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Tue, 1 Feb 2022 15:41:26 +0100 Subject: [PATCH] Skip indexing of empty mail properties --- Global_Indexer/frmIndex.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 02dce84..2c537ac 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -905,6 +905,8 @@ Public Class frmIndex Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath) Dim oMessageId As String = oMail.MessageID + LOGGER.Debug("MessageId: [{0}]", oMessageId) + Dim oMessageFrom As String = EMAIL.Get_MessageSender(oMail) Dim oMessageTo As String = EMAIL.Get_MessageReceiver(oMail) Dim oDateIn As Date = EMAIL.Get_MessageDate(oMail) @@ -935,17 +937,16 @@ Public Class frmIndex Try If oIndex.Value Is Nothing Then LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) - Return False + Continue For End If If TypeOf oIndex.Value Is String AndAlso oIndex.Value = String.Empty Then LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) - Return False + Continue For End If - Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value) If oIndexingSuccessful = False Then