次のスクリプトは [ディスカッション] テンプレートからデータベースを新規作成します。
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)