Skip to main content

EntriesProcessed (NotesCalendar - LotusScript)

Read-only. Number of entries processed by GetEntries and ReadRange operations.

Defined in​

NotesCalendar

Data type​

Long

Syntax​

To get: entries& = notesCalendar**.EntriesProcessed**

Usage​

Use this property as the third parameter to GetEntries and ReadRange to process entries in successive operations.

Examples​

This agent uses GetEntries to get calendar and scheduling information for the current user for today and tomorrow.

Sub Initialize
    Dim session As New NotesSession
    Dim maildb As New NotesDatabase("", "")
    Dim cal As NotesCalendar
    Dim cale As NotesCalendarEntry
    Dim entries As Variant
    Dim dt1 As NotesDateTime
    Dim dt2 As NotesDateTime
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim body As NotesRichTextItem
    REM Get calendar for current user
    Call maildb.Openmail()
    Set cal = session.getCalendar(maildb)
    Set dt1 = session.createdatetime("Today 08")
    Set dt2 = session.Createdatetime("Tomorrow 17")
    Set db = session.CurrentDatabase
    REM Create document to post results
    Set doc = db.CreateDocument
    doc.Form = "main"
    doc.Subject = "Today and tomorrow"
    Set body = doc.Createrichtextitem("body")
    REM Get entries and put in body of document
    entries = cal.Getentries(dt1, dt2, 0, 1)
    While Not IsEmpty(entries)
        Set cale = entries(0)
        Call body.Appendtext(cale.Read())
        Call body.Addnewline(1)
        entries = cal.Getentries(dt1, dt2, cal.Entriesprocessed, 1)
    Wend
    Call doc.Save( True, True )
End Sub

This agent uses ReadRange to get calendar and scheduling information for the current user for today and tomorrow.

Sub Initialize
    Dim session As New NotesSession
    Dim maildb As New NotesDatabase("", "")
    Dim cal As NotesCalendar
    Dim entrystring As String
    Dim dt1 As NotesDateTime
    Dim dt2 As NotesDateTime
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim body As NotesRichTextItem
    REM Get calendar for current user
    Call maildb.Openmail()
    Set cal = session.getCalendar(maildb)
    Set dt1 = session.createdatetime("Today 08")
    Set dt2 = session.Createdatetime("Tomorrow 17")
    Set db = session.CurrentDatabase
    REM Create document to post results
    Set doc = db.CreateDocument
    doc.Form = "main"
    doc.Subject = "Today and tomorrow"
    Set body = doc.Createrichtextitem("body")
    REM Get entries and put in body of document
    entrystring = cal.ReadRange(dt1, dt2, 0, 1)
    While entrystring <> ""
        Call body.Appendtext(entrystring)
        Call body.Addnewline(1)
        entrystring = cal.ReadRange(dt1, dt2, cal.Entriesprocessed, 1)
    Wend
    Call doc.Save( True, True )
End Sub