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.
Table 1. Bit values for ReadRangeMask1
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

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