LOTUSSCRIPT/COM/OLE CLASSES
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)
See Also