LOTUSSCRIPT /COM/OLE のクラス

例:URLOpen メソッド
次のスクリプトは、ユーザーが個人 Web ナビゲータデータベースを開くたびに、ユーザーが指定したホームページを開きます。

Sub Postopen(Source As Notesuidatabase)
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim profile As NotesDocument
 'intialize variables
 Set db = Source.Database
 Set view = db.GetView("(Internet Profile)")
 Set profile = view.GetFirstDocument
 If (profile Is Nothing) Then Exit Sub
 'open up the url
 If (profile.StartUpOptions(0) = "1") Then
   Set w = New NotesUIWorkspace
   w.UrlOpen profile.OpenUrl(0)
 End If
End Sub

関連項目