Examples: CreateEntryFrom method

This example creates a copy of the first entry in the Products outline and adds it to the outline after the second entry.

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()