UntilTime (NotesCalendar - LotusScript)

読み込み専用。 getNewInvitations によって処理された最後の招集の時刻を示します。

定義位置

NotesCalendar

データ型

NotesDateTime

構文

取得する場合: notesDateTime = notesCalendar.UntilTime

使用法

このプロパティは getNewInvitations によって設定されます。これを getNewInvitations の第 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 クラスの UntilTime プロパティ