会議のエントリ (複数可) を削除します。
パラメータ | 説明 |
---|---|
scope | 整数。反復操作の範囲:
|
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 がありません。 |
AutoSendNotices が false の場合、remove はエントリを削除します (完全に削除します)。
このメソッドは会議のエントリを処理し、通知は処理しません。
Sub Initialize
Dim session As New NotesSession
Dim maildb As New NotesDatabase("", "")
Dim cal As NotesCalendar
Dim cale As NotesCalendarEntry
Dim uid As String
Dim recurid As String
uid = session.Getenvironmentstring("currentuid")
If uid = "" Then
MessageBox "No current UID",, "Error"
Exit sub
End If
recurid = session.Getenvironmentstring("currentrecurid")
Call maildb.Openmail()
Set cal = session.getCalendar(maildb)
Set cale = cal.Getentry(uid)
If recurid = "" Then
Call cale.Remove()
MessageBox "UID = " & uid,, "Removed entry"
Else
Call cale.Remove(recurid, Cs_range_repeat_all)
MessageBox "UID = " & uid & ", Recur ID = " & recurid,, _
"Removed all entry instances"
End If
End Sub
Java™ NotesCalendarEntry クラスの remove メソッド