Issue:
Name change was issued, but the Notes ID was accidentally overwritten/replaced on the central storage location, and the client. There is no ID Vault.
After re-registering the person, the person doc still has the "Pending" name change.
Note:
This is a workaround. Do not do this lightly, this could break a person doc.
Manual Clean-up:
Locate the name change document and processed response and delete both manually.
Create a temporary agent to do remove the AdminP fields:
- Type: Lotusscript
- Event: Action Menu selection
- Target: All selected documents
Add the following code:
%REM
Agent deleteAdminPFlds
Created Apr 20, 2023 by Tripp Black/Aberdeen/McMurrayFabrics
Description: Comments for Agent
%END REM
Option Public
Option Declare
Sub Initialize
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument ' current document selected/open
Dim doc As NotesDocument ' current doc backend
Set uiDoc = w.Currentdocument
If (uiDoc Is Nothing) Then
Print "No UIDoc"
Exit Sub
End If
Set doc = uiDoc.Document
If (doc Is Nothing) Then
Print "No Doc"
Exit Sub
End If
Call doc.Removeitem("$AdminpOldWebName")
Call doc.Removeitem("AdminpOldCertificate")
Call doc.Removeitem("AdminpOldFirstName")
Call doc.Removeitem("AdminpOldFullName")
Call doc.Removeitem("AdminpOldInternetAddress")
Call doc.Removeitem("AdminpOldLastName")
Call doc.Removeitem("AdminpOldOwner")
Call doc.Removeitem("AdminpOldShortName")
Call doc.ReplaceItemValue("ChangeRequest", "")
Call doc.Removeitem("ChangeRequestDate")
Call doc.Save(True, False)
End Sub
previous page
|