NotesCalendarNotice (LotusScript)

このオブジェクトを使用して、IBM Domino メールアプリケーション内のカレンダーサービスとスケジュールサービスの 1 つの通知に、標準 iCalendar 形式でアクセスすることができます。この形式については、「Internet Calendaring and Scheduling Core Object Specification (iCalendar)」(http://tools.ietf.org/html/rfc5545) を参照してください。

NotesCalendar と NotesCalendarEntry は、カレンダー通知の取得と作成を行うためのメソッドを提供します。

通知には、別のユーザーから受け取ったがまだ処理していない招集、予定変更、情報の更新、確認、キャンセル、変更提案、情報の要求、了承、辞退、仮了承が含まれます。通知は NotesCalendarEntry オブジェクトとして扱うことができ、メソッド accept、cancel、counter、decline、delegate、remove、requestInfo、tentativelyAccept を適用できます。NotesCalendarEntry メソッドには scope パラメータと recurid パラメータがありますが、対応する NotesCalendarNotice メソッドには、これらのパラメータはありません。他の NotesCalendarEntry メソッドを通知に適用すると、例外が発生します。

例

このエージェントは、2012 年に入ってから投稿された会議のうち、昨日の午前 2:00 以降の最初の会議招集を読み込みます。

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