Accept (NotesCalendarNotice - LotusScript®)

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

定義位置

構文

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 メソッド