LOTUSSCRIPT /COM/OLE のクラス

例:AddGroupMembers メソッド
次のエージェントは、4 人のメンバーが所属する「Guys」というグループを追加する要求を作成します。グループがすでに存在する場合、メンバーが追加されます。

Sub Initialize
Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("Software_Server")
 Dim guys(4) As String
 guys(0) = "Admin Guy"
 guys(1) = "Car Guy"
 guys(2) = "Motorcycle Guy"
 guys(3) = "Other Guy"
 noteid$ = adminp.AddGroupMembers("Guys", guys)
 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

関連項目