次の Visual Basic コードは、ローカルのデータベースが昨日から更新されている場合はこれを開きます。
Private Sub OpenIfMod_Click()
On Error GoTo errorHandler
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim dt As NotesDateTime
Set dt = s.CreateDateTime("Yesterday")
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabaseIfModified("names.nsf", dt)
MsgBox db.Title, , db.FilePath
Exit Sub
errorHandler:
MsgBox Err.Description, , Hex(Err.Number)
End Sub