GetEntry (NotesCalendar - LotusScript®)

カレンダーエントリを取得します。

定義位置

構文

Set notesCalendarEntry = notesCalendar.GetEntry( uid$ )

パラメータ	説明
`uid`	String 型。エントリの `iCalendar` 識別子 (`UID` アイテム)

戻り値	説明
`NotesCalendarEntry`	カレンダーエントリ。このメソッドでは、識別子が正しくない場合でも例外は発生しません。ただし、返された NotesCalendarEntry オブジェクトを使用しようとすると、例外「`エントリが索引に見つかりません`」が発生します。

使用法

このメソッドは uid については、存在するかどうかのみを検査します。返された NotesCalendarEntry オブジェクトを使用しようとすると、妥当性検査が行われ、エラーが報告されます。

例

このエージェントは、環境変数として保存された UID に対応するカレンダーエントリを取得します。

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim uid As String
	Dim cal As NotesCalendar
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim body As NotesRichTextItem
	REM Get calendar for current user
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	REM Create document to post results
	Set db = session.CurrentDatabase
	Set doc = db.CreateDocument
	doc.Form = "main"
	doc.Subject = "Calendar entry"
	Set body = doc.Createrichtextitem("body")
	REM Get entry and put in body of document
	uid = session.Getenvironmentstring("currentuid")
	If uid = "" Then
		body.Appendtext("Current UID not set")
	Else
		body.Appendtext("Calendar entry for UID " & uid)
		body.Addnewline(1)
		body.Appendtext(cal.Getentry(uid).Read())
	End If
	Call doc.Save( True, True )
End Sub

クロスリファレンス

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