Version 2.4.0.9

Global_Indexer/ClassFileDrop.vb

@@ -91,7 +91,8 @@ Public Class ClassFileDrop
                         LOGGER.Info("Attachment File from Outlook could not be created")
                     End If
                 End If
-            ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
+            End If
+            If e.Data.GetDataPresent("FileGroupDescriptor") Then
                     Dim oApp As Outlook.Application
                     Try
                         oApp = New Outlook.Application()
@@ -140,8 +141,6 @@ 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)

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 © 2021")>
-<Assembly: AssemblyTrademark("2408")>
+<Assembly: AssemblyTrademark("2409")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.4.0.8")>
+<Assembly: AssemblyVersion("2.4.0.9")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")>