GetNoticeByUNID (NotesCalendar - LotusScript®)

指定されたユニバーサル ID (UNID) に基づいてカレンダー通知を取得します。

定義位置

構文

Set notesCalendarNotice = notesCalendar.GetNoticeByUNID( unid$ )

パラメータ	説明
`unid`	String 型。通知を含む Domino 文書の、ユニバーサル ID (UNID)。

戻り値	説明
`NotesCalendarEntry`	カレンダー通知。識別子が正しくない場合は、例外が発生します。

例

このエージェントは、環境変数に書き込まれた UNID に対応する通知を取得します。

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim unid 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)
	Set db = session.CurrentDatabase
	REM Create document to post results
	Set doc = db.CreateDocument
	doc.Form = "main"
	doc.Subject = "Calendar notice"
	Set body = doc.Createrichtextitem("body")
	REM Get notice and put in body of document
	unid = session.Getenvironmentstring("noticeunid")
	body.Appendtext("Calendar entry for UNID " & unid)
	body.Addnewline(1)
	body.Appendtext(cal.Getnoticebyunid(unid).read())
	Call doc.Save( True, True )
End Sub

クロスリファレンス

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