Lotus Domino Designer 8.5 ヘルプ - 例:TemplateName プロパティ

LOTUSSCRIPT /COM/OLE のクラス

例:TemplateName プロパティ
1. 次のスクリプトは discuss4.ntf のテンプレート名を取得します。TemplateName プロパティは「StdR4Disc」を返します。

Dim db As New NotesDatabase( "", "discuss4.ntf" ) Dim template As String template = db.TemplateName Messagebox( template )

2. 次のサブルーチンは、指定されたユーザー名、サーバー名、ファイル名を使用して、ユーザーのメールファイルをメールテンプレートから新規に作成します。サブルーチンは 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" )

関連項目

TemplateName プロパティ

用語集

フィードバック ヘルプ または プロダクトユーザビリティ

ヘルプの使い方

すべてのヘルプ項目

用語集