LOTUSSCRIPT /COM/OLE のクラス

例:Name プロパティ
次のエージェントは、ビューの名前を変更します。既存の名前は、Inputbox$ statement でデフォルト値として使用されます。

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim newName As String
 Set db = s.CurrentDatabase
 Set view = db.GetView("Topics")
 newName = Inputbox$("New name", _
 "Change name:", view.Name)
 If newName = "" Then Exit Sub
 view.Name = newName
End Sub

関連項目