fix error for profilepreselection

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("2.5.0.5")>
+<Assembly: AssemblyTrademark("2.5.0.6")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.0.5")>
+<Assembly: AssemblyVersion("2.5.0.6")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

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
@@ -1676,8 +1677,8 @@ Public Class frmIndex
                 If CURRENT_LASTDOKART <> "" Then
                     _Logger.Info("Last Saved DocType: {0}", CURRENT_LASTDOKART)
 
-                    Dim oFoundDocType = ComboboxDoctype.Properties.DataSource.
-                        Cast(Of DocType)().
+                    Dim oDocTypes As List(Of DocType) = ComboboxDoctype.Properties.DataSource
+                    Dim oFoundDocType = oDocTypes.
                         Where(Function(dt) dt.Name = CURRENT_LASTDOKART).
                         FirstOrDefault()