Examples: LastAccessed property

  1. This script gets the date that a document was last accessed and puts it into accessDate. For example, LastAccessed returns 10/31/95 1:51:31 PM.
    Dim doc As NotesDocument
    Dim accessDate As Variant
    '...set value of doc...
    accessDate = doc.LastAccessed
  2. This script changes the document Status item to "Stalled" if the document has not been accessed during the last three days.
    Dim doc As NotesDocument    
    '...set value of doc...
    If ( Cint( Date - doc.LastAccessed ) > 3 ) Then
      doc.Status = "Stalled"
      Call doc.Save( True, True )
    End If