CreateEntry (NotesCalendar - LotusScript®)

Creates a calendar entry.

Defined in

Syntax

Set notesCalendarEntry = notesCalendar.CreateEntry( icalentry$ , [ flags% ] )


Parameter	Description
`icalentry`	String. Input for one calendar entry in `iCalendar` format.
`flags`	Integer. Write flag. `CS_WRITE_DISABLE_IMPLICIT_SCHEDULING (2)` disables the automatic sending of notices to participants. Setting this flag is the same as setting AutoSendNotices to false before calling this method.


Return value	Description
`NotesCalendarEntry`	The calendar entry.


Possible exception (lsxbeerr.lss)	Value	Text	Description
`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_ENTRYEXISTS`	4815	Entry already exists	The entry exists in the calendar.

Usage

An exception occurs if the input is invalid. See

Internet Calendaring and Scheduling Core Object Specification
(iCalendar)

at http://tools.ietf.org/html/rfc5545 for the format, or use the output from a read operation as a template. The examples show basic formatting for an appointment and a meeting.

If problems persist, try running with the following notes.ini variable: CSDebugAPI=1. When the exception occurs, check the console log for details.

For a meeting, if AutoSendNoticesis not set to false and CS_WRITE_DISABLE_IMPLICIT_SCHEDULING is not set, notices are automatically sent to participants.

If icalentry contains a recurrence rule (RRULE item), this method creates a calendar event for each recurrence with its own identifier (RECURRENCE-ID item). The format of a recurrence identifier is the time of the event in UTC format, for example, 20120913T160000Z. However, if you later change the time of the event, the identifier does not change.

Examples

This agent creates a meeting calendar entry for today and tomorrow at 1600 UTC, with no notices being sent, and posts its UID and the first recurrence identifier to sessionScope variables.

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim calentry As NotesCalendarEntry
	Dim icale As String
	Dim tday As String
	REM Get calendar for current user and create entry
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	tday = Format(Today, "yyyymmdd")
	icale = |BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:| & tday & |T160000Z
DTEND:| & tday & |T170000Z
RRULE:FREQ=DAILY;COUNT=2
ATTENDEE;ROLE=CHAIR;PARTSTAT=ACCEPTED;CN="Roberta Person/Westford/IBM";
 RSVP=FALSE:mailto:roberta_person@us.ibm.com
ATTENDEE;ROLE=REQ-PARTICIPANT
 ;CN="Doc Test/Bedford/IBM";RSVP=TRUE:mailto:doctest@us.ibm.com
SUMMARY:Sample Meeting
ORGANIZER;CN="Roberta Person/Westford/IBM"
 :mailto:roberta_person@us.ibm.com
END:VEVENT
END:VCALENDAR|
	Set calentry = cal.Createentry(icale, Cs_write_disable_implicit_scheduling)
	Call session.Setenvironmentvar("currentuid", calentry.Uid)
	Call session.Setenvironmentvar("currentrecurid", tday & "T160000")
	MessageBox "UID = " & calentry.Uid,, "Created calendar entry"
End Sub