Sub Initialize Dim session As New NotesSession Dim adminp As NotesAdministrationProcess Set adminp = _ session.CreateAdministrationProcess("bay/casco") adminp.CertificateAuthorityOrg = "\casco" adminp.UseCertificateAuthority = True noteID$ = adminp.RenameNotesUser("CN=Nora Ephron/O=casco", _ "Jones") Messagebox noteID$, , "Renaming request has been submitted" End Sub
See Also