fix handling embedded msg files without extension (looking at u, outlook)

Global_Indexer/ClassFilehandle.vb

@@ -104,7 +104,20 @@ Public Class ClassFilehandle
                     Else
                         attachment_name = attachment.LongFileName
                     End If
-                    If Not attachment_name.Contains("inline") Then
+                    If attachment.EmbeddedMessage IsNot Nothing Then
+                        attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
+                        tempfile = Path.Combine(Path.GetTempPath, attachment_name & ".msg")
+                        tempfile = ClassFilehandle.Versionierung_Datei(tempfile)
+
+                        If tempfile <> String.Empty Then
+                            Dim oMessage = attachment.EmbeddedMessage
+                            oMessage.Save(tempfile)
+                            TEMP_FILES.Add(tempfile)
+                            LOGGER.Info(">> Attachment (" & i1 & "):" & tempfile)
+                            erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+                            i1 += 1
+                        End If
+                    ElseIf Not attachment_name.Contains("inline") Then
                         'Sonderzeichen entfernen
                         attachment_name = ClassFilehandle.InvalidCharacters(attachment_name)
                         tempfile = Path.Combine(Path.GetTempPath, attachment_name)

Global_Indexer/frmAdministration.vb

@@ -230,16 +230,23 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
+    Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged, TBDD_DOKUMENTARTBindingSource.BindingComplete
         If DOKART_GUIDTextBox.Text <> String.Empty Then
             CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
             Load_TabData()
 
-
             gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(CURRENT_DOKART_ID)
             gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
             gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
             gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
+
+            If TextBox3.Text = String.Empty Then
+                TextBox5.Enabled = False
+                TextBox1.Enabled = False
+            Else
+                TextBox5.Enabled = True
+                TextBox1.Enabled = True
+            End If
         End If
     End Sub
 
@@ -986,7 +993,11 @@ Public Class frmAdministration
 
     Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
         MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHENColumn.DefaultValue = Date.Now()
         MyDataset.TBGI_REGEX_DOCTYPE.DOCTYPE_IDColumn.DefaultValue = DOKART_GUIDTextBox.Text
+
+        TextBox5.Enabled = True
+        TextBox1.Enabled = True
     End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
@@ -1343,6 +1354,8 @@ Public Class frmAdministration
 
     Private Sub BarButtonItem28_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
         TBGI_REGEX_DOCTYPEBindingSource.AddNew()
+
+
         EnableControls(XtraTabPageProfileRegex)
     End Sub