LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As NotesSession Dim adminp As NotesAdministrationProcess Set adminp = _ session.CreateAdministrationProcess("MyServer/northeast") noteID$ = adminp(ChangeHTTPPassword("CN=Juan Carlos/O=northeast", _ "bueno", "malo") If noteID$ <> "" Then Dim db As New NotesDatabase(MyServer/northeast", "admin4.nsf") Dim ws As New NotesUIWorkspace Call ws.EditDocument(False, db.GetDocumentByID(noteID$)) End If End Sub
See Also