LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim adminp As NotesAdministrationProcess Set adminp = _ session.CreateAdministrationProcess("Software_Server") noteid$ = adminp.FindGroupInDomain("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