Domino Code Fragment

Code Name* Using UnprocessedDocuments on all newly created and modified documents, to modify the Status item of each document it processes.	Date* 04/29/2024	Source (or email address if you prefer)* Rlatulippe@romac.com IP address:.18.220.187.178
Description* This agent script runs on all newly created and modified documents, and its purpose is to modify the Status item of each document it processes.	Type* LotusScript	Categories* (Misc)

Implementation:	Required Client:	Server:
Limitations:	Comments: Using UpdateProcessedDoc For agents that run on new and modified documents, newly received mail documents, pasted documents, or newly modified documents, you must use the UpdateProcessedDoc method in NotesSession to mark each document as "processed," which ensures that a document gets processed by the agent only once (unless it's modified, mailed, or pasted again). If you do not call this method for each document, the agent processes the same documents the next time it runs. UpdateProcessedDoc marks a document as processed only for the particular agent from which it is called. Using UpdateProcessedDoc in one agent has no effect on the documents that another agent processes. In all other agents and view actions, UpdateProcessedDoc has no effect. View actions When used in a view action, UnprocessedDocuments returns the same documents as an agent that runs on selected documents.

Files/Graphics attachments (if applicable): Code:

If the agent does not contain any searches, and runs for the first time on October 17, 1995, UnprocessedDocuments returns all the documents in the database. The script puts "Processed by agent on 10/17/95" into the Status item of each document, saves the document, and marks it as processed. If the agent runs again the next day, and five documents have been created or modified since the 17th, UnprocessedDocuments returns only those five documents--all other documents have been marked as processed--and puts "Processed by agent on 10/18/95" into the Status item. If the agent runs again the next day, and one document has been created since the 18th, UnprocessedDocuments returns one document.
If the agent does contain searches, and runs for the first time on October 17, 1995, UnprocessedDocuments returns all the documents in the database that meet the search criteria. For example, it returns all documents whose Subject field contains the word "Pablo." If the agent runs again the next day, and five documents have been created or modified since the 17th, but only two of them contain "Pablo" in the Subject, UnprocessedDocuments returns those two documents. If the agent runs again the next day, and one document has been created since the 18th, but it does not contain "Pablo" in the Subject, UnprocessedDocuments returns an empty NotesDocumentCollection.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim dateTime As NotesDateTime
Dim doc As NotesDocument
Dim j As Integer
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set dateTime = New NotesDateTime( "Today" )
For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
doc.Status = "Processed by agent on " _
& dateTime.LocalTime
Call doc.Save( True, True )
Call session.UpdateProcessedDoc( doc )
Next
End Sub