例: OpenIfModified method

次のスクリプトは、1995 年 1 月 20 日以降にサーバー Paris の sales.nsf データベースが更新されている場合、それを開きます。

Dim db As NotesDatabase
Dim dateTime As NotesDateTime
Set db = New NotesDatabase( "", "" )
Set dateTime = New NotesDateTime( "01/20/95" )
If db.OpenIfModified( "Paris", "sales.nsf", _
dateTime ) Then
  Messagebox( db.Title & " has been modified since " &  _
  dateTime.LocalTime ) 
Else
  Messagebox( "Database not modified since date specified." )
End If