Renders a calendar notice in iCalendar
format.
Syntax
Set notice$ = notesCalendarNotice.Read( )
Return value |
Description |
String |
The calendar notice in iCalendar format. |
Possible exception (lsxbeerr.lss) |
Value |
Text |
Description |
lsERR_NOTES_ERR_IDNOTFOUND |
4814 |
Identifier not found |
The identifier for the NotesCalendarNotice object
does not identify an entry in the calendar. |
Examples
This agent reads the first meeting
invitation since yesterday at 2:00 AM for meetings posted starting
at the beginning of 2012.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(),, "Invite"
End If
End Sub