This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Wrote script to clear password digest.User will be selected from address book and clicking on button. In backgroud, below agent will run.
Getting error after "Call doc.ReplaceItemValue("PasswordDigest","") in debug as "Object variable not set".
Please help as I am not able to find the solution where it is missing.
Dim workspace As New NotesUIWorkspace
Dim s As New NotesSession
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim view As Notesview
Dim doc As NotesDocument
Dim Person as Variant
Set uidoc = workspace.CurrentDocument
Person = uidoc.FieldGetText( "User" )
Set db = s.Getdatabase("Hub/wipro", "names.nsf")
Set view = db.getview ("AllView")
Set doc = view.GetDocumentByKey( Person )
Call doc.ReplaceItemValue("PasswordDigest","")
Call doc.Save(True, False)
MsgBox "Password Digest has been cleared Sucessfully"
Feedback number WEBB8UBCET created by ~Howard Nimnukonygon on 05/15/2012
Status: Open
Comments: