GetNewInvitations (NotesCalendar - LotusScript)

新規招集のカレンダーエントリを取得します。

定義位置

構文

Set invitationsVariant = notesCalendar.GetNewInvitations( [ startNotesDateTime ] , [ sinceNotesDateTime ] )

パラメータ	説明
`start`	NotesDateTime. 新規招集の適用対象である会議の開始時刻。デフォルトはすべての会議です。
`since`	NotesDateTime. 対象とする新規招集を開始する時刻。デフォルトはすべての新規招集です。このパラメータは UntilTime とともに使用し、最後の呼び出し以降に投稿された招集を取得します。

戻り値	説明
`Variant 型`	新規招集。招集がない場合は空配列。各配列要素は NotesCalendarNotice 型です。

使用法

以下の点に注意してください。

第 1 パラメータは会議に適用し、検索に含めるための、最初の日付を指定します。
第 2 パラメータは招集に適用し、検索から除外するための、最後の日付を指定します。

例

このエージェントは、2012 年 1 月 1 日以降のメッセージのカレンダー招集と、10 月 1 日深夜 0 時以降の招集を取得します。次にエージェントは、ユーザーの希望に応じて、最後に処理した招集より後の招集を取得します。

Sub Initialize
	REM On Error GoTo handler
	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("10/01/2012 00:00 AM")
	invites = cal.Getnewinvitations(dt1, dt2)
	Do
		If IsEmpty(invites) Then
			MessageBox "No invitations",, "Nothing"
		Else
			Dim invite As NotesCalendarNotice
			Dim i As Integer
			On Error Resume Next
					For i = LBound(invites) To UBound(invites)
						Set invite = invites(i)
						MessageBox invite.Read(),, "Invitation"
			Next
		End If
		if (MessageBox(|Do you want to get new invitations since | & _
		cal.Untiltime.Localtime & |?|, MB_YESNO, "Again?") = IDNO) Then
			Exit do
		End if
		invites = cal.Getnewinvitations(dt1, cal.Untiltime)
	Loop
	Exit Sub
handler:
	MsgBox Error,, Err()
	Exit sub
End Sub

クロスリファレンス

Java™ NotesCalendar クラスの getNewInvitations メソッド