Accept (NotesCalendarNotice - LotusScript®)

Accepts a calendar notice.

Defined in

NotesCalendarNotice

Syntax

Call notesCalendarNotice.Accept( comments$ )
Parameter Description
comments String. Comments regarding a meeting change.
Possible exception (lsxbeerr.lss) Value Text Description
lsERR_NOTES_ERR_UNSUPPORTEDACTION 4811 Unsupported action The method is attempting to apply an action that is not valid for the entry.
lsERR_NOTES_ERR_OVERWRITEDISALLOWED 4813 This action is not allowed since it would overwrite personal changes The action should be verified then reissued with the overwrite flag set.
lsERR_NOTES_ERR_IDNOTFOUND 4814 Identifier not found The identifier for the NotesCalendarNotice object does not identify a notice in the calendar.

Examples

This agent accepts a meeting.
Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim dt1 As NotesDateTime
	Dim dt2 As NotesDateTime
	Dim invites As Variant
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	Set dt1 = session.createdatetime("01/01/2012 00:00 AM")
	Set dt2 = session.createdatetime("Yesterday 00:00 AM")
	invites = cal.Getnewinvitations(dt1, dt2)
	If IsEmpty(invites) Then
		MessageBox "No invitation",, "Nothing"
	Else
		Dim invite As NotesCalendarNotice
		Set invite = invites(0)
		MessageBox invite.Read(),, "Accepting invitation"
		Call invite.Accept("")
	End If
End Sub