カレンダーエントリを更新します。
パラメータ | 説明 |
---|---|
icalentry | String 型。iCalendar 形式のエントリの新しい値。 |
comments | String 型。会議の変更に関するコメント。 |
flags | Long。フラグを書き込みます。値を追加して組み合わせることができます。
|
recurid | String 型。反復するカレンダーイベントの反復識別子 (RECURRENCE-ID アイテム)。 反復識別子の形式は、UTC 形式での時刻です (20120913T160000Z など)。 |
可能性のある例外 | 値 | テキスト | 説明 |
---|---|---|---|
lsERR_NOTES_ERR_RECURID_NOTFOUND | 4808 | 反復識別子が見つかりません。 | NotesCalendarEntry オブジェクトの反復識別子が無効です。 |
lsERR_NOTES_ERR_ERRSENDINGNOTICES | 4809 | 通知の送信でエラーが発生しました | 会議の通知を送信するときに問題が発生しました。会議を再度更新してください。 |
lsERR_NOTES_ERR_NEWERVERSIONEXISTS | 4810 | 新しいバージョンが存在します | icalentry データがシーケンスと整合しません。修正するか新しいデータを取得し、 再試行してください。 |
lsERR_NOTES_ERR_UNSUPPORTEDACTION | 4811 | サポートされないアクション | メソッドが、エントリに対して無効なアクションを適用しようとしています (自身が議長ではない会議をキャンセルしようとしているなど)。 |
lsERR_NOTES_ERR_IDNOTFOUND | 4814 | ID が見つかりません | NotesCalendarEntry オブジェクトの反復識別子がカレンダーのエントリを示していません。 |
繰り返し発生するエントリの場合は、recurid を指定する必要があります。iCalendar 入力には 1 つの VEVENT と UID を含める必要があります。
Sub Initialize
Dim session As New NotesSession
Dim maildb As New NotesDatabase("", "")
Dim cal As NotesCalendar
Dim cale As NotesCalendarEntry
Dim upd As String
Dim uid As String
uid = session.Getenvironmentstring("currentuid")
If uid = "" Then
MessageBox "No current UID",, "Error"
Exit sub
End If
Call maildb.Openmail()
Set cal = session.getCalendar(maildb)
Set cale = cal.Getentry(uid)
upd = Replace(cale.Read(), "T1600", "T1615")
Call cale.Update(upd, "Pushing up 15 minues", _
CS_WRITE_DISABLE_IMPLICIT_SCHEDULING + CS_WRITE_MODIFY_LITERAL)
MessageBox "UID = " & uid,, "Updated entry"
End Sub
Java™ NotesCalendarEntry クラスの update メソッド