LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim adminp As NotesAdministrationProcess Set adminp = _ session.CreateAdministrationProcess("myServer/Northeast") Adminp.CertifierFile = _ "C:\lotus\domino\cert.id" adminp.CertifierPassword = "My1Pswd" noteid$ = adminp.RenameNotesUser( _ "CN=Mary Jones/O=Northeast","Newlywed") 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