LOTUSSCRIPT/COM/OLE CLASSES
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
See Also