How to set default refinement criteria values in Quick Search

Detail
How to set default refinement criteria values in Quick Search so that a refinement or many refinements are checked when a Quick Search is launched.

Resolution
The following is sample code that helps customize Quick Search so that refinement criteria will be checked always by default:

Function OnSearchLoaded(vntSearchCrit)
'if this is a Company Quick Search, switch on the default refinements:
If objSearch.Search.SearchType = 0 then
If objSearch.Search.Table.TableName = "Company" Then
objSearch.SetRefinement 0, True
objSearch.SetRefinement 1, True
objSearch.SetRefinement 2, True
End If
End If
End function

Or, use the following sample code:

Sub OnQuickSearchLoaded(notifyParam)
Dim objUISearch
' On Error Resume Next
Set objUISearch = UIMaster.RUICenter
objUISearch.DFMatchMethod = DFMatchContains
' Set Prospects Only refinement to true if the search is based on the Contact form
If objUISearch.Search.Table.TableName = "Contact" Then
dim objRefinement
for i=1 to objUISearch.refinementcount
Set objRefinement = objUISearch.refinementparameter(i-1)
If LCase(objRefinement.parentElement.InnerText) = "prospects only" Then
objRefinement.Checked = True
End If
next
End If
End Sub