sono la vergogna dell\'intero mondo Lotus...
allora...
ho risolto cosė
**************************************
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim news As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set uidoc = ws.currentdocument
Set doc = uidoc.document
searchFormula$ = doc.BasicSearch(0)
If searchFormula$ = "" Then
Exit Sub
End If
REM searchFormula$ = """" & searchFormula$ & """"
REM Call db.UpdateFTIndex(True)
Set dc = db.FTSearch(searchFormula$, 30)
Set news = New NotesNewsletter(dc)
news.DoScore = False
news.DoSubject = True
news.SubjectItemName = "Title"
Set doc = news.FormatMsgWithDoclinks(db)
doc.subject = "Search Results For: " & searchFormula$
doc.form = "Search"
doc.SaveOptions = "0"
Set uidoc = ws.EditDocument(False, doc)
End Sub
**************************************
ed č quello che cercavo..almeno come funzionalitā minime...
ora... se voglio aggiungere a questo search ulteriori criteri di ricerca?
volendo rendere graficamente pių accattivante il BODY della form che ospita il
risultato della ricerca?
ditemi...
Daničččč :yellow_biggrin.gif: scherzo..per oggi ho dato abbastanza fastidio
|