例: SetAction method

次の例は、「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