Examples: CurrentDatabase property (NotesSession - LotusScript)

  1. 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
  2. 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