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

LOTUSSCRIPT /COM/OLE のクラス

例:DesignTemplateName プロパティ
1. 次のスクリプトはデータベース CBANNER.NSF の設計テンプレート名を取得します。CBANNER.NSF はメールファイルであるため、メソッドは「STDR4MAIL」を返します。

Dim db As New NotesDatabase( "Mecca", "mail\cbanner.nsf" ) template$ = db.DesignTemplateName

2. 次のサブルーチンはデータベース管理者にデータベースの設計が変更されると通知します。このサブルーチンは、テンプレートデータベースのサーバー (「Caracas」など) とファイル (「MAIL4.NTF」など) を取得し、このテンプレートを継承するサーバー上のすべてのデータベースの管理者にメールを送信します。

Sub templateNotification(server As String, file As String) Dim templateDb As NotesDatabase Dim templateName As String Dim db As NotesDatabase Dim directory As NotesDbDirectory Dim doc As NotesDocument Set templateDb = New NotesDatabase( server, file ) templateName = templateDb.TemplateName Set directory = New NotesDbDirectory( server ) Set db = directory.GetFirstDatabase( DATABASE ) While Not ( db Is Nothing ) If ( db.DesignTemplateName = templateName ) Then Call db.Open( "", "" ) Set doc = New NotesDocument( db ) doc.Form = "Memo" doc.Subject = "Template changes in " & templateName doc.Body = "The template " & templateName & _ " will be modified tomorrow." Call doc.Send( False, db.Managers ) End If Set db = directory.GetNextDatabase Wend End Sub

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

Call templateNotification( "Caracas", "mail4.ntf" )

関連項目

DesignTemplateName プロパティ

用語集

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

ヘルプの使い方

すべてのヘルプ項目

用語集