ZUGFeRDService: Mask body test for emails, close connection when inserting history entries

Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -644,6 +644,9 @@ Public Class ImportZUGFeRDFiles
             ' entry needs to be accessed by MoveAndRenameEmailToRejected shortly after
             _firebird.ExecuteNonQueryWithConnection(oSQL, oConnection, Firebird.TransactionMode.WithTransaction)
 
+            ' Close the connection
+            oConnection.Close()
+
             Return True
         Catch ex As Exception
             _logger.Warn("History Entry count not be created for message id [{0}] and md5 [{1}]", MessageId, MD5Checksum)