Duplicate files message box with top most, only hash filename for msg files directly from outlook

Global_Indexer/ClassFileDrop.vb

@@ -91,8 +91,7 @@ Public Class ClassFileDrop
                         LOGGER.Info("Attachment File from Outlook could not be created")
                     End If
                 End If
-            End If
-            If e.Data.GetDataPresent("FileGroupDescriptor") Then
+            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
                 Dim oApp As Outlook.Application
                 Try
                     oApp = New Outlook.Application()
@@ -141,6 +140,8 @@ Public Class ClassFileDrop
                 Next
                 Return True
                 'Drop eines Outlook Attachments
+            Else
+                Return False
             End If
         Catch ex As Exception
             MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)