例: MoveEntry method

次の例は、「Products」アウトラインの最後のエントリを、一番最初のエントリの後ろに子エントリとして移動します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entryA As NotesOutlineEntry
Dim entryB As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.getOutline("Products")
Set entryA = outline.GetLast()
Set entryB = outline.GetFirst()
Call outline.MoveEntry(entryA,entryB,1,1)
Call outline.save()