Examples: CreateFromTemplate method

This script creates a new database from the discussion template.

Dim template As New NotesDatabase( "Anchorage", _ 
"discuss.ntf" )
Dim brandNewDb As NotesDatabase
Set brandNewDb = template.CreateFromTemplate _
( "Juno", "suggest.nsf", True )
brandNewDb.Title = "Suggestions for Giving Campaign 1996"
Call brandNewDb.GrantAccess("-Default-", ACLLEVEL_READER)