Examples: LastRun property (NotesAgent - LotusScript®)

  1. This script gets the date that the current agent was last run. For example, if the agent last ran on August 15, 1996 at 11:09:20 AM, the LastRun property returns a variant containing the date-time value 8/15/96 11:09:20 AM.
    Dim session As New NotesSession
Dim agent As NotesAgent
Dim lasttime As Variant
Set agent = session.CurrentAgent
lasttime = agent.LastRun
  2. This script checks if the current database full-text index has been updated since the current agent last ran. If not, it updates the index.
    Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Set agent = session.CurrentAgent
Set db = session.CurrentDatabase
If ( agent.LastRun > db.LastFTIndexed ) Then
  Call db.UpdateFTIndex( False )
End If