例: TemplateName property

次のスクリプトは discuss4.ntf のテンプレート名を取得します。TemplateName プロパティは「StdR4Disc」を返します。
```
Dim db As New NotesDatabase( "", "discuss4.ntf" )
Dim template As String
template = db.TemplateName
Messagebox( template )
```

次のサブルーチンは、指定されたユーザー名、サーバー名、ファイル名を使用して、ユーザーのメールファイルをメールテンプレートから新規に作成します。サブルーチンは TemplateName プロパティを使用して［StdR4Mail］テンプレートを検索します。

Sub createMailFile( user As String, server As String, _
file As String )
  Dim templateDb As NotesDatabase
  Dim mailDb As NotesDatabase
  Dim directory As New NotesDbDirectory( server )
  Set templateDb = directory.GetFirstDatabase( TEMPLATE )
  While Not ( templateDb.TemplateName = "StdR4Mail" )
    Set templateDb = directory.GetNextDatabase
  Wend
  Call templateDb.Open( "", "" )
  Set mailDb = templateDb.CreateFromTemplate _
  ( server, "mail¥"+file, True )
  mailDb.Title = user + " Mail"
  Call mailDb.GrantAccess( "Administrators", _
      ACLLEVEL_MANAGER )
  Call mailDb.GrantAccess( user, ACLLEVEL_EDITOR )
  If ( server <> "" ) Then
    Call mailDb.GrantAccess( server, ACLLEVEL_MANAGER )
  End If
End Sub

このサブルーチンを呼び出す例は次のようになります。

Call createMailFile( "Brandon Herkle", "Pyongyang", _
  "brandon.nsf" )