MS18042016

2016-04-19 08:29:57 +02:00
parent b0a74d2e94
commit 034718d22e
37 changed files with 4334 additions and 1746 deletions
--- a/Global_Indexer/frmIndex.vb
+++ b/Global_Indexer/frmIndex.vb
@@ -266,8 +266,8 @@ Public Class frmIndex
                End If
            Next
        Catch ex As Exception
-            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_checkValue:")
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message)
+            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_checkValue:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message)
            Return False
        End Try
    End Function
@@ -298,8 +298,8 @@ Public Class frmIndex
    '            End If

    '        Catch ex As Exception
-    '            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
-    '            ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
+    '            MsgBox("Unvorhergesehener Unexpected error in Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen sql:")
+    '            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
    '            ClassLogger.Add(" - SQL: " & vsql_statement, False)
    '            ClassLogger.Add(" - Connection: " & vconnectionString, False)
    '            Return 99
@@ -330,8 +330,8 @@ Public Class frmIndex
    '            cmd.Dispose()
    '            cnn.Close()
    '        Catch ex As Exception
-    '            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
-    '            ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
+    '            MsgBox("Unvorhergesehener Unexpected error in Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Ausführen sql:")
+    '            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
    '            ClassLogger.Add(" - SQL: " & vsql_statement, False)
    '            ClassLogger.Add(" - Connection: " & vconnectionString, False)
    '            Return 99
@@ -363,7 +363,7 @@ Public Class frmIndex
                                            ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
                                            showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
                                        End If
-                                        Return ""
+                                        Return Nothing
                                    End If
                                End If
                            Case Else
@@ -376,20 +376,20 @@ Public Class frmIndex
                                        ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
                                        showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
                                    End If
-                                    Return ""
+                                    Return Nothing
                                End If
                        End Select
                    Else
                        showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
-                        Return ""
+                        Return Nothing
                    End If
                    Exit For
                End If
            Next
        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei GetManIndex_Value - Fehler: " & vbNewLine & ex.Message)
-            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetManIndex_Value:")
-            Return ""
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetManIndex_Value - Fehler: " & vbNewLine & ex.Message)
+            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetManIndex_Value:")
+            Return Nothing
        End Try
    End Function
    Function GetAutoIndex_Value(indexname As String)
@@ -414,8 +414,8 @@ Public Class frmIndex
                End If
            Next
        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetAutoIndex_Value:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+            MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in GetAutoIndex_Value:")
            Return ""
        End Try
    End Function
@@ -446,8 +446,8 @@ Public Class frmIndex
            End If

        Catch ex As Exception
-            ClassLogger.Add(" - Fehler bei Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_AutomatischerIndex_SQL:")
+            ClassLogger.Add(" - Unexpected error in Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_AutomatischerIndex_SQL:")
            Return ""
        End Try
    End Function
@@ -519,7 +519,7 @@ Public Class frmIndex
                                    g.Dispose()
                                End If
                            Catch ex As Exception
-                                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:")
+                                MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:")
                            End Try

                        Next
@@ -561,8 +561,8 @@ Public Class frmIndex
            End If

        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
        End Try
    End Sub
    Private Sub AddAutoSuggest_Textbox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Optional Vorgabe As String = "")
@@ -657,8 +657,8 @@ Public Class frmIndex
            End If

        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei AddAutoSuggest_Textbox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddAutoSuggest_Textbox:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddAutoSuggest_Textbox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddAutoSuggest_Textbox:")
        End Try
    End Sub
    Private Sub Renew_ComboboxResults(INDEX_GUID As Integer, SearchString As String, Resultvalue As String)
@@ -725,7 +725,7 @@ Public Class frmIndex
                                            g.Dispose()
                                        End If
                                    Catch ex As Exception
-                                        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:")
+                                        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:")
                                    End Try

                                Next
@@ -761,8 +761,8 @@ Public Class frmIndex


        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei Renew_ComboboxResults:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
        End Try
    End Sub
    '#End Region
@@ -836,7 +836,7 @@ Public Class frmIndex

        Catch ex As Exception
            ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler bei CheckWrite_IndexeMan:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
            Return False
        End Try

@@ -880,8 +880,8 @@ Public Class frmIndex
                End If
            Next
        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_Postprocessing:")
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Indexwert_Postprocessing:")
        End Try
    End Sub
    '    'Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable)
@@ -905,8 +905,8 @@ Public Class frmIndex
    '    '        Next
    '    '        Return result
    '    '    Catch ex As Exception
-    '    '        ClassLogger.Add(" - Unvorhergesehener Fehler bei Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
-    '    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_Nachbearbeitung_Wert:")
+    '    '        ClassLogger.Add(" - Unvorhergesehener Unexpected error in Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message)
+    '    '        MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Get_Nachbearbeitung_Wert:")
    '    '        Return result
    '    '    End Try

@@ -935,7 +935,7 @@ Public Class frmIndex
            CURR_DOKART_OBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP")
            CURR_WORKFILE_EXTENSION = extension
            Zielordner = DT.Rows(0).Item("ZIEL_PFAD")
-          
+
            '####
            ' Regulären Ausdruck zum Auslesen der Indexe definieren
            Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -1054,13 +1054,13 @@ Public Class frmIndex
                                Loop
                            End If
                        Catch ex As Exception
-                            ClassLogger.Add(" - Fehler bei Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message)
-                            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Umbenennnen der Datei:")
+                            ClassLogger.Add(" - Unexpected error in Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message)
+                            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Umbenennnen der Datei:")
                            err = True
                        End Try
                    Case Else
                        ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper)
-                        MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:")
+                        MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
                End Select
            Next
            CURRENT_NEWFILENAME = NewFileString & extension
@@ -1075,7 +1075,7 @@ Public Class frmIndex
                        ClassLogger.Add("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", True)
                        MsgBox("Unexpected Error in 'Name_Generieren' - Error: " & vbNewLine & ex.Message & vbNewLine & "Directory.CreateDirectory(" & path & ")", MsgBoxStyle.Critical)
                    End Try
-                   
+
                End If
                folder_Created = True
            End If
@@ -1087,9 +1087,9 @@ Public Class frmIndex
            End If

        Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add(" - Unvorhergesehener Unexpected error in Name_Generieren - Fehler: " & vbNewLine & ex.Message)
            File.Delete(CURRENT_WORKFILE)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Unexpected error in Name_Generieren:")
            Return False
        End Try

@@ -1100,7 +1100,7 @@ Public Class frmIndex
            'Manuelle Indexe Indexieren
            Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN
            If DTMan.Rows.Count > 0 Then
-               
+
                Dim Count As Integer = 0
                For Each row As DataRow In DTMan.Rows
                    Dim idxvalue = row.Item("Indexwert")
@@ -1184,7 +1184,7 @@ Public Class frmIndex


        Catch ex As Exception
-            ClassLogger.Add("Unvorhergesehener Fehler bei Write_Indizes - Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add("Unvorhergesehener Unexpected error in Write_Indizes - Fehler: " & vbNewLine & ex.Message)
            MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try
@@ -1261,14 +1261,27 @@ Public Class frmIndex
                    Dim emailTo As String
                    ' Email Absender und Empfänger
                    If headers Is Nothing Then
-                        emailFrom = msg.DisplayTo.Replace("'", "")
-                        emailTo = msg.InternetAccountName.Replace("'", "")
+                        If msg.DisplayTo Is Nothing Then
+                            ClassLogger.Add(" >> DisplayTo in email is nothing - default will be set", False)
+                            emailTo = "NO RECIPIENT"
+                        Else
+                            emailTo = msg.DisplayTo.Replace("'", "")
+                        End If
+                        If msg.InternetAccountName Is Nothing Then
+                            ClassLogger.Add(" >> InternetAccountName in email is nothing - default will be set", False)
+                            emailFrom = ""
+                        Else
+                            emailFrom = msg.InternetAccountName.Replace("'", "")
+                        End If
                    Else
                        emailFrom = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList)
                        emailTo = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList)
                    End If

-
+                    If IsNothing(emailFrom) Or IsNothing(emailTo) Then
+                        MsgBox("Unhandled Exception in SetEmailIndices - emailfrom or recipiant are empty and defaults could not be set." & vbNewLine & "Please check the dropped email and Configuration of Email-Indexing!", MsgBoxStyle.Exclamation)
+                        Return False
+                    End If
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> emailFrom: " & emailFrom, False)
                    If LogErrorsOnly = False Then ClassLogger.Add(" >> emailTo: " & emailTo, False)
                    'FROM
@@ -1289,9 +1302,16 @@ Public Class frmIndex
                    End If

                    ' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & msg.Subject, False)
-                    indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject)
-                    CURRENT_MESSAGESUBJECT = msg.Subject
+                    Dim subj As String = msg.Subject
+                    If IsNothing(subj) Or subj = "" Then
+                        ClassLogger.Add(" >> msg subject is empty...DEFAULT will be set", False)
+                        subj = "No subject"
+                        MsgBox("Attention: Email was send without a subject - Default value 'No subject' will be used!", MsgBoxStyle.Exclamation)
+                    End If
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> subj: " & subj, False)
+
+                    indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, subj)
+                    CURRENT_MESSAGESUBJECT = subj
                    If indexierung_erfolgreich = False Then
                        MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical)
                        Return False
@@ -1416,8 +1436,8 @@ Public Class frmIndex
            End If
            Return False
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler bei Move_Rename - Fehler: " & vbNewLine & ex.Message)
-            ClassLogger.Add(" - Fehler bei Move_Rename - Insert_String: " & Insert_String)
+            ClassLogger.Add(" - Unexpected error in Move_Rename - Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add(" - Unexpected error in Move_Rename - Insert_String: " & Insert_String)
            Return True
        End Try

@@ -1434,8 +1454,8 @@ Public Class frmIndex
            CloseUniversalViewer()
            My.Settings.Save()
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler bei Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Schliessen des Formulares:")
+            ClassLogger.Add(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
        End Try

    End Sub
@@ -1460,9 +1480,9 @@ Public Class frmIndex
                    File.Delete(CURRENT_HTML_DOC)
                End If
            Catch ex As Exception
-                ClassLogger.Add(" - Fehler bei Delete HTML-Doc - Fehler: " & vbNewLine & ex.Message)
+                ClassLogger.Add(" - Unexpected error in Delete HTML-Doc - Fehler: " & vbNewLine & ex.Message)
            End Try
-          
+
        End If

        'If Not IsNothing(DocView) And viewer_string <> "" Then
@@ -1517,8 +1537,8 @@ Public Class frmIndex
                chkMultiIndexer.Visible = False
            End If
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler bei Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Öffnen des Formulares:")
+            ClassLogger.Add(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:")
        End Try
    End Sub
    Sub Load_String()
@@ -1531,8 +1551,8 @@ Public Class frmIndex
            'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
            'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler beim Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
-            MsgBox("Fehler beim Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            ClassLogger.Add(" - Unexpected error inm Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message)
+            MsgBox("Unexpected error inm Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

@@ -1559,7 +1579,9 @@ Public Class frmIndex
    End Sub
    Sub Refresh_Dokart()
        Try
-            DT_DOKART = ClassDatabase.Return_Datatable("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('" & Environment.UserName & "') ORDER BY SEQUENCE")
+            Dim sql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
+            If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL DoctypeList: " & sql)
+            DT_DOKART = ClassDatabase.Return_Datatable(sql)
            cmbDokumentart.DataSource = DT_DOKART
            cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName
            cmbDokumentart.DisplayMember = DT_DOKART.Columns("DOCTYPE").ColumnName
@@ -1567,8 +1589,8 @@ Public Class frmIndex
            cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
            Me.cmbDokumentart.SelectedIndex = -1
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler beim Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Dokumentarten:")
+            ClassLogger.Add(" - Unexpected error inm Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Laden der Dokumentarten:")
        End Try
    End Sub
    Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged
@@ -1587,13 +1609,15 @@ Public Class frmIndex
    End Sub
    '    <STAThread()> _
    Private Sub Refresh_IndexeMan(dokartid As Integer)
+        Dim sql
        Try
-            DT_INDEXEMAN = ClassDatabase.Return_Datatable("select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid & " ORDER BY T.SEQUENCE")
+            Sql = "select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid & " ORDER BY T.SEQUENCE"
+            DT_INDEXEMAN = ClassDatabase.Return_Datatable(sql)
            pnlIndex.Visible = True
            LoadIndexe_Man()
        Catch ex As System.Exception
-            ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_IndexeMan:")
+            ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message & vbNewLine & Sql)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Refresh_IndexeMan:")
        End Try
    End Sub
    '    <STAThread()> _
@@ -1612,7 +1636,7 @@ Public Class frmIndex
                Return Nothing
            End If
        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Check_HistoryValues:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Check_HistoryValues:")
        End Try
    End Function

@@ -1680,8 +1704,8 @@ Public Class frmIndex
            Next
            SendKeys.Send("{TAB}")
        Catch ex As Exception
-            ClassLogger.Add(" - Fehler bei LoadIndexe_Man - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei LoadIndexe_Man:")
+            ClassLogger.Add(" - Unexpected error in LoadIndexe_Man - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in LoadIndexe_Man:")
        End Try

    End Sub
@@ -1718,12 +1742,13 @@ Public Class frmIndex
                            Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
                            If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
                            'den Platzhalter im SQL-String durch den Wert ersetzen
-                            Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
-                            If manIndexwert <> "" Then
+                            Dim manIndexwert = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
+
+                            If Not IsNothing(manIndexwert) Then
                                SqlString = SqlString.Replace(element.Value, manIndexwert)
                                If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False)
                            Else
-                                ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
+                                ClassLogger.Add(">> Attention: manIndexwert is NOTHING - Funktion: FillIndexe_Autom", False)
                                Return False
                            End If
                        Next
@@ -1786,8 +1811,8 @@ Public Class frmIndex
                Return True
            End If
        Catch ex As System.Exception
-            ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom")
+            ClassLogger.Add(" - Unexpected error in FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FillIndexe_Autom")
            Return False
        End Try

@@ -1862,7 +1887,12 @@ Public Class frmIndex
                        My.Computer.FileSystem.DeleteFile(tempFilename)
                    End If

-                    Me.txtBetreff.Text = msg_email.Subject
+                    If msg_email.Subject = "" Then
+                        Me.txtBetreff.Text = "!! No subject in email !!"
+                    Else
+                        Me.txtBetreff.Text = msg_email.Subject
+                    End If
+
                    'Try
                    Dim wFile As System.IO.FileStream
                    Dim byteData() As Byte
@@ -1959,7 +1989,7 @@ Public Class frmIndex
                                If DropType = "@DROPFROMFSYSTEM@" Then
                                    If chkdelete_origin.Checked = True Then
                                        'Die temporäre Datei löschen
-                                       DeleteFile
+                                        DeleteFile()
                                    End If
                                ElseIf DropType = "@ATTMNTEXTRACTED@" Or DropType = "@OUTLOOK_ATTACHMENT@" Then
                                    'Die temporäre Datei löschen
@@ -1986,7 +2016,7 @@ Public Class frmIndex
                            End If

                        Else
-                            MsgBox("Unerwarteter Fehler bei Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical)
+                            MsgBox("Unerwarteter Unexpected error in Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical)
                            Return False
                        End If
                    Else
@@ -2127,8 +2157,8 @@ Public Class frmIndex

                        Catch ex As Exception
                            MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical)
-                            ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message)
-                            ClassLogger.Add(" - Fehler bei Insert-History - SQL: " & Insert_String)
+                            ClassLogger.Add(" - Unexpected error in Insert-History - Fehler: " & vbNewLine & ex.Message)
+                            ClassLogger.Add(" - Unexpected error in Insert-History - SQL: " & Insert_String)
                            err = True
                        End Try
                    Else
@@ -2252,7 +2282,7 @@ Public Class frmIndex
                        If LogErrorsOnly = False Then ClassLogger.Add(" >> FolderPatter nach V-Element: '" & folderindex & "'", False)
                    Case Else
                        ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper)
-                        MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:")
+                        MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
                End Select
            Next

@@ -2281,7 +2311,7 @@ Public Class frmIndex
                    MsgBox("Attention: Root Folder '" & fullpath & "' could not be created." & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                    Return False
                End Try
-               
+
            End If

            'Die aktuelle Datei soll gleichzeitig verschoben werden