Scripts sur la "Recherche Rapide"

Changer l'objet par défaut de la recherche rapide :

'A insérer dans le script global gérant l'évenement OnPortalLoaded (par défaut : Global_OnPortalLoaded)
Call ChangeDefaultObject("Contacts")

'A insérer dans un autre script global (ex : Global_Handler_QuickSearch)
Sub ChangeDefaultObject(strObjectLabel)

    On Error Resume Next

    Dim objmenu
    Dim objElements
    Dim objElement

    Set objmenu = UIMaster.documentMenu
    Set objElements = objmenu.getElementsByTagName("INPUT")
    For Each objElement in objElements
        If objElement.classname = "ComboFieldInput" Then
           objElement.value = strObjectLabel
           objElement.focus()
           Exit For
        End If  
    Next

    If Err.Number <> 0 Then
       UIMaster.ShowErrorMessage Err.Description
       Exit Sub
    End If   
End Sub