ReadRangeMask1 (NotesCalendar - LotusScript)

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

Defined in

NotesCalendar

Data type

Long

Syntax

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

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

Usage

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

Constant name	Numerical value
CS_READ_RANGE_MASK_ALARM	131072
CS_READ_RANGE_MASK_APPTTYPE	2048
CS_READ_RANGE_MASK_CATEGORY	1024
CS_READ_RANGE_MASK_CLASS	16
CS_READ_RANGE_MASK_DTEND	2
CS_READ_RANGE_MASK_DTSTAMP	4
CS_READ_RANGE_MASK_DTSTART	1
CS_READ_RANGE_MASK_LOCATION	256
CS_READ_RANGE_MASK_NOTESORGANIZER	32768
CS_READ_RANGE_MASK_NOTESROOM	65536
CS_READ_RANGE_MASK_NOTICETYPE	4096
CS_READ_RANGE_MASK_ONLINE_URL	16384
CS_READ_RANGE_MASK_PRIORITY	32
CS_READ_RANGE_MASK_RECURRENCE_ID	64
CS_READ_RANGE_MASK_SEQUENCE	128
CS_READ_RANGE_MASK_STATUS	8192
CS_READ_RANGE_MASK_SUMMARY	8
CS_READ_RANGE_MASK_TRANSP	512

Table 1. Bit values for ReadRangeMask1

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.Readrangemask1 = Cs_read_range_mask_summary + Cs_read_range_mask_status + _
    Cs_read_range_mask_noticetype
    calstr = cal.Readrange(dt1, dt2)
    Call body.Appendtext(calstr)
    Call doc.Save( True, True )
End Sub