Can you set EmailOnly searches in NRS scripts?

Is there a way to set the "Return Only E-mails" or "Exclude Emails" in the "Restrict Search To" drop-down box in the SearchDlg control using an NRS script? I know that there is a ImanProfileSearchParameters interface that exposes this setting, but that interface is not available to the Search Dialog.

Find more posts tagged with

Comments

sleclerc

Well, I got it to work, but there's still one problem. When the following code is run the entire seach dialog is cleared. Is there a way to prevent this?

Const imSearchDocumentsOnly = 2
Const imSearchEmailOnly = 1
Const imSearchEmailOrDocuments = 0

Sub SearchDlg_OnInitDialog(dlg)

Dim searchparams
Dim MANDMS

Set MANDMS = dlg.NRTDMS
Set searchparams = dlg.IManSearchParameters

If searchparams Is Nothing Then
Set searchparams = MANDMS.CreateProfileSearchParameters()
End If

If Not(searchparams Is Nothing) Then
searchparams.SearchEmail = imSearchDocumentsOnly

dlg.IManSearchParameters = searchparams
End If

End Sub

jny

Well, I got it to work, but there's still one problem. When the following code is run the entire seach dialog is cleared. Is there a way to prevent this?

Const imSearchDocumentsOnly = 2
Const imSearchEmailOnly = 1
Const imSearchEmailOrDocuments = 0

Sub SearchDlg_OnInitDialog(dlg)

Dim searchparams
Dim MANDMS

Set MANDMS = dlg.NRTDMS
Set searchparams = dlg.IManSearchParameters

If searchparams Is Nothing Then
Set searchparams = MANDMS.CreateProfileSearchParameters()
End If

If Not(searchparams Is Nothing) Then
searchparams.SearchEmail = imSearchDocumentsOnly

dlg.IManSearchParameters = searchparams
End If

End Sub

This actually came in as a devsupport case yesterday and this is my respones to that recipient:

There isn’t a way to preset the search criteria to exclude e-mails. The searchparameters collection is the only way to update the search values to include documents-only. This search collection is not built until the user clicks on Save in the dialog.

Outside of the SDK support, you may try to write to the following registry key to prepopulate the dialog to exclude e-mails.

Again, this is unsupported as key settings are subject to change.

[HKEY_CURRENT_USER\Software\Interwoven\WorkSite\8.0\iManExt\SearchParams]
"448"="Exclude E-mails"

This implies that you would need to write an ICommand wrapper around the searchcmd, and write to the key setting prior to invoking an instance of the search command inside your ICommand code.