Cancel (NotesCalendarEntry - LotusScript®)

会議のエントリ (複数可) をキャンセルします。

定義位置

構文

Call notesCalendarEntry.Cancel( comments$ , [ scope% ] , [ recurid$ ] )

パラメータ	説明
`comments`	String 型。会議の変更に関するコメント。
`scope`	整数。反復操作の範囲: `CS_RANGE_REPEAT_ALL` (1) `CS_RANGE_REPEAT_CURRENT` (0) `CS_RANGE_REPEAT_FUTURE` (3) (当該要素を含む) `CS_RANGE_REPEAT_PREV` (2) (当該要素を含む)
`recurid`	String 型。反復するカレンダーイベントの反復識別子 (`RECURRENCE-ID` アイテム)。反復識別子の形式は、UTC 形式での時刻です (`20120913T160000Z` など)。

可能性のある例外 (lsxbeerr.lss)	値	テキスト	説明
`lsERR_NOTES_ERR_INVALIDID`	4757	無効 ID	NotesCalendarEntry オブジェクトの識別子が無効です。
`lsERR_NOTES_ERR_RECURID_NOTFOUND`	4808	反復識別子が見つかりません。	NotesCalendarEntry オブジェクトの反復識別子が無効です。
`lsERR_NOTES_ERR_IDNOTFOUND`	4814	ID が見つかりません	NotesCalendarEntry オブジェクトの反復識別子がカレンダーのエントリを示していないか、反復識別子の `scope` と `recurid` がありません。

使用法

このメソッドは会議のエントリを処理し、通知は処理しません。

例

このエージェントは、繰り返し発生する会議の最初のインスタンスをキャンセルします。

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim calentry As NotesCalendarEntry
	Dim dt1 As NotesDateTime
	Dim dt2 As NotesDateTime
	Dim tday As String
	Dim recurid As String
	Dim entries As Variant
	Dim cale As NotesCalendarEntry
	REM Get calendar for current user and create entry
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	Set dt1 = session.createdatetime("Today 18")
	Set dt2 = session.createdatetime("Today 18 01")
	tday = Format(Today, "yyyymmdd")
	recurid = tday & "T220000Z"
	entries = cal.Getentries(dt1, dt2)
	If Not IsEmpty(entries) Then
		Set cale = entries(0)
		Call cale.Cancel("No meeting today", Cs_range_repeat_current, recurid)
	End If
End Sub