次のスクリプトは現在の文書内の各アイテムが最後に更新された日時を取得します。
Sub Initialize Dim session As New NotesSession Dim doc As NotesDocument Set doc = session.DocumentContext Forall item In doc.Items Messagebox item.LastModified,, item.Name End Forall End Sub