Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim profile As NotesDocument
Dim untilTime As NotesDateTime
Set db = session.CurrentDatabase

' Check UntilTime in profile document
Set profile = db.GetProfileDocument("Profile")
If profile.HasItem("UntilTime") Then
' Start processing from UntilTime
Set untilTime = profile.GetItemValueDateTimeArray("UntilTime")(0)
Set dc = db.GetModifiedDocuments(untilTime, DBMOD_DOC_DATA)
Else
' First time through get all documents
Set dc = db.GetModifiedDocuments(, DBMOD_DOC_DATA)
End If

If dc.Count > 0 Then
' Display LastModified and Subject from each document
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
Messagebox doc.GetItemValue("Subject")(0),, doc.LastModified
Set doc = dc.GetNextDocument(doc)
Wend
Else
' If nothing modified since last time
If profile.HasItem("UntilTime") Then
Messagebox "No documents modified",, untilTime.LocalTime
Else
Messagebox "No documents modified",, "Beginning"
End If
End If

' Write UntilTime back to profile document
Call profile.ReplaceItemValue("UntilTime", dc.UntilTime)
Call profile.Save(True, True, True)
End Sub

関連項目

GetModifiedDocuments メソッド