例: LastAccessed property

次のスクリプトは文書が最後にアクセスされた日付を取得して、[accessDate] に入れます。例えば、LastAccessed は 10/31/95 1:51:31 PM を返します。
```
Dim doc As NotesDocument
Dim accessDate As Variant
'...set value of doc...
accessDate = doc.LastAccessed
```

次のスクリプトは文書が過去 3 日間アクセスされていないとき、文書の Status アイテムを「Stalled」に変更します。

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