ReadRangeMask2 (NotesCalendar - LotusScript)

Read-write. Mask that controls the optional property display for a readRange operation.

Defined in

NotesCalendar

Data type

Long

Syntax

To get: mask& = notesCalendar**.ReadRangeMask2**

To set: notesCalendar**.ReadRangeMask2 =** mask&

Usage

Before calling readRange, set this mask to designate the properties that you want returned. By default, no properties are returned.The following table specifies the bit values. Combine values by adding them.

Constant name	Numerical value
CS_READ_RANGE_MASK_HASATTACH	1
CS_READ_RANGE_MASK_UNID	2

Table 1. Bit values for ReadRangeMask2

Examples

This agent gets limited 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 dt1 As NotesDateTime
    Dim dt2 As NotesDateTime
    Dim calstr As String
    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")
    REM Create document to post results
    Set db = session.CurrentDatabase
    Set doc = db.CreateDocument
    doc.Form = "main"
    doc.Subject = "Today and tomorrow"
    Set body = doc.Createrichtextitem("body")
    REM Read and put in body of document
    cal.Readrangemask2 = Cs_read_range_mask_hasattach + Cs_read_range_mask_unid
    calstr = cal.Readrange(dt1, dt2)
    Call body.Appendtext(calstr)
    Call doc.Save( True, True )
End Sub