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

Global_Indexer/frmIndex.vb

@@ -1658,11 +1658,11 @@ Public Class frmIndex
             If Directory.Exists(oDestination) = False Then
                 MsgBox($"Profile Path [{oNewDestination}] is not available. Please select another profile.", MsgBoxStyle.Exclamation, Text)
                 ComboboxDoctype.SelectedIndex = -1
+            Else
+                WDDirect = oDocType.Item("WINDREAM_DIRECT")
+                CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
+                Refresh_IndexeMan(oSelectedItem.Guid)
             End If
-
-            WDDirect = oDocType.Item("WINDREAM_DIRECT")
-            CURRENT_DOKART_DUPLICATE_HANDLING = oDocType.Item("DUPLICATE_HANDLING")
-            Refresh_IndexeMan(oSelectedItem.Guid)
         End If
     End Sub
 
@@ -2747,5 +2747,7 @@ Public Class frmIndex
         CONFIG.Save()
     End Sub
 
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
+    End Sub
 End Class