Update (NotesCalendarEntry - LotusScript®)
Updates a calendar entry.
Defined in
NotesCalendarEntrySyntax
Call notesCalendarEntry.Update( icalentry$ , [ comments$ ] , [ flags& ] , [ recurid$ ] )Parameter | Description |
---|---|
icalentry |
String. The new value of the entry in iCalendar format. |
comments |
String. Comments regarding a meeting change. |
flags |
Long. Write flags. Combine values by adding
them.
|
recurid |
String. The recurrence identifier (RECURRENCE-ID item)
for a recurring calendar event. The format of a recurrence identifier
is a time in UTC format, for example, 20120913T160000Z . |
Possible exception | Value | Text | Description |
---|---|---|---|
lsERR_NOTES_ERR_RECURID_NOTFOUND |
4808 | Recurrence-ID not found | The recurrence identifier for the NotesCalendarEntry object is not valid. |
lsERR_NOTES_ERR_ERRSENDINGNOTICES |
4809 | Error sending notices | A problem occurred sending out notices for a meeting. You may want to update the meeting again. |
lsERR_NOTES_ERR_NEWERVERSIONEXISTS |
4810 | Newer version exists | The icalentry data is not valid
according to sequence. You should revise it or retrieve new data,
and try again. |
lsERR_NOTES_ERR_UNSUPPORTEDACTION |
4811 | Unsupported action | The method is attempting to apply an action that is not valid for the entry, for example, attempting to cancel a meeting when you are not the chair. |
lsERR_NOTES_ERR_IDNOTFOUND |
4814 | Identifier not found | The recurrence identifier for the NotesCalendarEntry object does not identify an entry in the calendar. |
Usage
Theentry
value must
contain one VEVENT
.For a recurring entry, you
must specify recurid
. The iCalendar
input
must contain a single VEVENT
and a UID.
Examples
This agent updates a calendar entry given its 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