Add DPI Scaling to frmIndex, more logging in ClassFileDrop

Global_Indexer/ClassFileDrop.vb

@@ -93,16 +93,18 @@ Public Class ClassFileDrop
                 End If
             End If
             If e.Data.GetDataPresent("FileGroupDescriptor") Then
-                Dim oApp
+                Dim oApp As Outlook.Application
                 Try
                     oApp = New Outlook.Application()
                 Catch ex As Exception
+                    LOGGER.Error(ex)
                     MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
+                    Return False
                 End Try
 
                 LOGGER.Info(">> Drop of msg")
                 'supports a drop of a Outlook message 
-                Dim myobj As Object
+                Dim myobj As Outlook.MailItem
                 For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
                     myobj = oApp.ActiveExplorer.Selection.Item(i)
                     Dim subj As String = myobj.Subject
@@ -127,6 +129,7 @@ Public Class ClassFileDrop
                     Try
                         myobj.SaveAs(strFile)
                     Catch ex As Exception
+                        LOGGER.Error(ex)
                         MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                         Return False
                     End Try