Update a field in all Lotus Notes documents using a Lotus Notes agent

With this Lotus Notes agent, you'll be able to update a specific field in all selected Lotus Notes documents with new data.

  
'Declarations:
Dim session As NotesSession
Dim ws As NotesUIWorkSpace
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim FieldName As String, NewValue 
As String, Message As String Dim item 
As NotesItem Dim YesNo As Variant Dim i As Integer

'Initilaize:
Sub Initialize
Dim session As New NotesSession
Set ws = New NotesUIWorkSpace
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument 
FieldName = Inputbox$("Enter Field Name.  
Enter this value very carefully.  
Spelling counts.","Enter Field")
If FieldName = "" Then Exit Sub 
NewValue = Inputbox$("Enter the new value.  
Enter 'Quit' to abort.","Enter Value")
If NewValue = "Quit" Then Exit Sub
Message = "Field Name: " & FieldName & Chr$(13) & _
"New Value: " & NewValue & Chr$(13) & _
"Records to be Updated: " & 
Cstr(dc.Count) & Chr$(13) & Chr$(13) &_
"Do you wish to continue?"
YesNo = Messagebox(Message,36,"Continue?")
If YesNo = 7 Then Exit Sub
For i = 1 To dc.Count
Set doc = dc.GetNthDocument(i)
Set item = doc.ReplaceItemValue(FieldName,NewValue)
Call doc.Save(True, True)
Next
End Sub

MEMBER FEEDBACK TO THIS TIP

This tip is overly complex. It ignores a simpler, method already available in the documentcollection class.

Call dc.StampAll(FieldName,NewValue)

******************************************

Don't forget that the NotesDocumentCollection.GetNthDocument gets extremely slow when the number of documents in the NotesDocumentCollection is large.
—Rhodri H.

Download this free guide

Download: IT Certifications 101

Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

• • I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.

  Please check the box if you want to proceed.

• • I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.

  Please check the box if you want to proceed.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip library by member Mick Crowder. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.