LOTUSSCRIPT /COM/OLE のクラス

例:SignDatabaseWithServerID メソッド
次のコードは、管理者権限のあるクライアントから [ファイル] - [データベース] - [署名] を選択するのと同等のシステム管理要求を作成します。NE/Sales のサーバー ID で customers.nsf データベースに署名されます。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("NE/Sales")
 noteid$ = adminp.SignDatabaseWithServerID("NE/Sales", _
 "customers.nsf")
 If noteid$<> "" Then
   Dim db As New NotesDatabase("NE/Sales", "admin4.nsf")
   Dim ws As New NotesUIWorkspace
   Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
 End If
End Sub

関連項目