Saturday, January 11, 2014

Refresh Lotus Notes Document with LotusScript


Will work for Refreshing the document.
Below script will (Open -> Edit - Save-> Close) the selected document from the view.

Sub Click(Source As Button)
Dim session As New NotesSession 
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument 
Dim ws As New NotesUIWorkspace 

Dim j As Integer

Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments

For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
Set uidoc = ws.EditDocument(True,doc)
Call uidoc.Refresh
Call uidoc.Save 
Call uidoc.Close 
Next
End Sub

No comments:

Post a Comment

Your feedback is always appreciated. I will try to reply to your queries as soon as time allows.Please don't spam,spam comments will be deleted upon reviews.