Improve Logging, Fix Email Indexing

Global_Indexer/frmIndexFileList.vb

@@ -24,6 +24,8 @@ Public Class frmIndexFileList
 
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
+            LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)
+
             For index = 0 To CheckedListBoxControl1.ItemCount - 1
                 Dim oRow = MyDataset1.TBGI_FILES_USER.Item(index)
                 Dim oChecked = CheckedListBoxControl1.GetItemChecked(index)
@@ -41,9 +43,12 @@ Public Class frmIndexFileList
                         End Try
                     End If
 
+                    LOGGER.Debug("Removing file from user files: [{0}]", oFilePath)
                     ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & oGuid, True)
                 End If
             Next
+
+            DialogResult = DialogResult.OK
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)