LOTUSSCRIPT /COM/OLE のクラス
例:CurrentDatabase プロパティ
1. 次のスクリプトは現在のデータベースを取得します。たとえば、スクリプトがサーバー Damascus のデータベース PROJECTS.NSF で実行されるとき、db オブジェクトはサーバー Damascus の PROJECTS.NSF を表します。
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
2. 次のアクションスクリプトを使用すると現在のデータベースで全文検索を実行できます。このスクリプトは、検索で見つかった上位 10 文書へのリンクを含むニュースレターをユーザーに送信します。
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
関連項目
CurrentDatabase プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集