ReadXLotusPropsOutputLevel (NotesCalendar - LotusScript®)
Read-write. Controls the return of X-LOTUS
properties
when reading a calendar entry or notice.
Defined in
NotesCalendarData type
IntegerSyntax
To get: setting% = notesCalendar.ReadXLotusPropsOutputLevel
To set: notesCalendar.ReadXLotusPropsOutputLevel = setting%
Usage
Before reading an entry or notice, you can set this option or accept the defaultCS_XLOTUS_READ_DEFAULT
.Constant name | Numerical value |
---|---|
CS_XLOTUS_READ_DEFAULT (0) |
Generates non-proprietary X-LOTUS properties.
This is the default if this property is not set prior to reading. |
CS_XLOTUS_READ_NONE (1) |
Omits all X-LOTUS properties. |
CS_XLOTUS_READ_ALL (2) |
Generates proprietary X-LOTUS properties.
The caller must know how to update these. |
Examples
This agent reads calendar entries with noX-LOTUS
propertiesSub 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.Readxlotuspropsoutputlevel = Cs_xlotus_read_none
calstr = cal.Readrange(dt1, dt2)
Call body.Appendtext(calstr)
Call doc.Save( True, True )
End Sub