Accept (NotesCalendarNotice - LotusScript®)

カレンダー通知を了承します。

定義位置

NotesCalendarNotice

構文

Call notesCalendarNotice.Accept( comments$ )
パラメータ 説明
comments String 型。会議の変更に関するコメント。
可能性のある例外 (lsxbeerr.lss) テキスト 説明
lsERR_NOTES_ERR_UNSUPPORTEDACTION 4811 サポートされないアクション メソッドが、エントリに対して無効なアクションを適用しようとしています。
lsERR_NOTES_ERR_OVERWRITEDISALLOWED 4813 個人の変更を上書きすることになるため、このアクションは実行できません アクションを確認した後、上書きフラグを設定して再実行してください。
lsERR_NOTES_ERR_IDNOTFOUND 4814 ID が見つかりません NotesCalendarNotice オブジェクトの識別子がカレンダーの通知を示していません。

このエージェントは、会議を了承します。
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(),, "Accepting invitation"
		Call invite.Accept("")
	End If
End Sub

クロスリファレンス

Java™ NotesCalendarNotice クラスの accept メソッド