ReadRangeMask2 (NotesCalendar - LotusScript®)
Read-write. Mask that controls the optional property display
for a readRange
operation.
Defined in
NotesCalendarData type
LongSyntax
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 |
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