NotesCalendarNotice (LotusScript)
Represents a Domino® calendar notice.
Properties
OverwriteCheckEnabled (NotesCalendarNotice - LotusScript)Methods
Accept (NotesCalendarNotice - LotusScript)AcceptCounter (NotesCalendarNotice - LotusScript)
Counter (NotesCalendarNotice - LotusScript)
Decline (NotesCalendarNotice - LotusScript)
DeclineCounter (NotesCalendarNotice - LotusScript)
Delegate (NotesCalendarNotice - LotusScript)
GetAsDocument (NotesCalendarNotice - LotusScript)
GetOutstandingInvitations (NotesCalendar - LotusScript)
Read (NotesCalendarNotice - LotusScript)
RemoveCancelled (NotesCalendarNotice - LotusScript)
RequestInfo (NotesCalendarNotice - LotusScript)
Usage
This object provides access to one notice of the calendar and scheduling services in a Domino® mail application in standardiCalendar
format.
See Internet Calendaring and Scheduling Core Object Specification
(iCalendar)
at http://tools.ietf.org/html/rfc5545 for
the format.Notices include invitations, reschedules,
information updates, confirmations, cancellations, counterproposals,
requests for information, acceptances, declines, and tentative acceptances
received from another user and not yet processed. You can treat a
notice as a NotesCalendarEntry object to
apply the following methods: accept, cancel, counter, decline, delegate, remove, requestInfo,
and tentativelyAccept. The NotesCalendarEntry methods
have scope
and recurid
parameters,
which the corresponding NotesCalendarNotice methods
do not. Application of other NotesCalendarEntry methods
to a notice causes an exception.
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