Invalid or nonexisting document

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Invalid or nonexisting document

Feedback Type: Problem

Product Area: Domino Designer on Eclipse (DDE)

Technical Area: Application Development

Platform: ALL

Release: 8.5.2

Reproducible: Always

Hi All,

This code does OU rename request. Getting error as "Invalid or non existing Document" after noteId1=adminp.Moveuserinhierarchycomplete(doc.noteID.

I saw that some integer is saving in noteID. Pls help to mitigate the same.

Sub Initialize
Dim s As New NotesSession
Dim s1 As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim Adminp As NotesAdministrationProcess
Dim view As NotesView
Dim db,admin4 As NotesDatabase
Dim DocCol As NotesDocumentCollection
Dim noteID, noteID1 As string
Dim person,OldOU,adminNoteId,Oldname,NewName,NewIdpath As String
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set db = s.GetDatabase("Hub/Aspire", "names.nsf")
Set view = db.getview ("AllView")
Oldname = uidoc.FieldGetText( "$User" )
NewName = uidoc.FieldGetText( "$Newname" )
OldOU = "C:\Program Files\IBM\Lotus\Notes\Data\cert.id"
NewIDPath = "C:\Program Files\IBM\Lotus\Notes\Data\ids\Cert Ids\mysore.id"
Set doc = view.GetDocumentByKey( Oldname )

'Phase 1
Set adminp = s1.Createadministrationprocess("Hub/Aspire")
adminp.CertifierFile = CStr(OldOU)
adminp.certifierPassword = "password"
adminp.UseCertificateAuthority=False
noteID = adminp.moveUserInHierarchyRequest(Oldname, NewName, False)

'Phase 2
Set admin4= New NotesDatabase("Hub/Aspire","admin4.nsf")
Set view = admin4.GetView("Name Move Requests")
Set DocCol = view.Getalldocumentsbykey(Newname)
Set adminp = s1.CreateAdministrationProcess("Hub/Aspire")
adminp.CertifierFile = newidpath
adminp.CertifierPassword = "password"
noteId1=adminp.Moveuserinhierarchycomplete(doc.noteID)
End Sub

Feedback number WEBB8V55DV created by ~Howard Nimnukonygon on 06/10/2012

Status: Open
Comments: