LOTUSSCRIPT /COM/OLE のクラス

例:SetAction メソッド
次の例は、「Contacting us」という新規エントリを「Web site」アウトラインの最初のエントリである「Home」親エントリに追加します。また、新規エントリをクリックすると、[Comments] フォームが編集モードで開かれるように設定します。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim outline As NotesOutline
 Dim oe As NotesOutlineEntry
 Dim existingOE As NotesOutlineEntry
 Set db = session.CurrentDatabase
■ Set outline = db.GetOutline("Web site")
 Set existingOE = outline.GetFirst
 Set oe = outline.CreateEntry("Contacting us", _
 existingOE, True, True)
 Call oe.SetAction({@Command([Compose];"Comments")})
 Call outline.AddEntry(oe)
 Call outline.Save()
End Sub

関連項目