Domino Code Fragment

Code Name*
Perform a full text search on the current database. It sends the user a newsletter with links		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.137.170.183
Description*
This action script allows the user to perform a full text search on the current database. It sends the user a newsletter with links to the top ten documents found in the search.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim query As String
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
query = Inputbox$ _
( "What do you want to search for?", "Search" )
Set collection = db.FTSearch( query, 10 )
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatMsgWithDocLinks( db )
doc.Form = "Memo"
Call doc.Send( False, session.UserName )
End Sub