例: CreateEntryFrom method

次の例は「Products」アウトラインの最初のエントリのコピーを作成し、2 番目のエントリの後のアウトラインに挿入します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim entryA As NotesOutlineEntry
Dim entryB As NotesOutlineEntry
Dim entryC As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("Products")
Set entryA = outline.GetFirst()
Set entryB = outline.GetNext(entryA)
Set entryC = outline.CreateEntryFrom(entryA,entryB,1)
Call outline.save()