Lotus Domino Designer 8 ヘルプ - 例: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 プロパティ

用語集

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

ヘルプの使い方

すべてのヘルプ項目

用語集