HCL Domino - Examples: CurrentDatabase property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: CurrentDatabase property
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

See Also

CurrentDatabase property

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents