Examples: CurrentDatabase property (NotesSession - LotusScript)
- This script gets the current database. For example, if this script
runs in the database PROJECTS.NSF on server Damascus, then the db
object represents PROJECTS.NSF on server Damascus.
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
- 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.
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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.