LOTUSSCRIPT /COM/OLE のクラス


例:CreateReplica メソッド
次のエージェントは、Company_Server に Guys1.nsf のレプリカを作成する要求を送信します。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("Software_Server")
 noteid$ = adminp.CreateReplica("Software_Server", _
 "Guys1", _
 "Company_Server")
 If noteid$ <> "" Then
   Dim db As New NotesDatabase("Software_Server", "admin4")
   Dim ws As New NotesUIWorkspace
   Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
 End If
End Sub

関連項目