ReadRangeMask1 (NotesCalendar - LotusScript®)

読み書き可能。readRange 操作のプロパティ表示を制御するマスク。

定義位置

NotesCalendar

データ型

Long 型

構文

取得する場合: mask& = notesCalendar.ReadRangeMask1

設定する場合: notesCalendar.ReadRangeMask1 = mask&

使用法

readRange を呼び出す前に、このマスクを設定して、どのプロパティを返すかを指定します。デフォルトでは、すべてのプロパティが返されます。

次の表はビット値を示しています。値を追加して組み合わせることができます。

表 1. ReadRangeMask1 のビット値
定数名	数値
`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

例

このエージェントにより、現在のユーザーについて、今日と明日の限定的なカレンダー情報とスケジュール情報が取得されます。

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

クロスリファレンス

Java™ NotesCalendar クラスの ReadRangeMask1 プロパティ