GetAsDocument (NotesCalendarEntry - LotusScript®)

カレンダーエントリを含む文書を取得します。

定義位置

構文

Set notesDocument = notesCalendarEntry.GetAsDocument( [ flags& ] , [ recurid$ ] )

パラメータ	説明
`flags`	Long。次のいずれかです。 `CS_DOCUMENT_NOSPLIT` (1) 0
`recurid`	String 型。反復するカレンダーイベントの反復識別子 (`RECURRENCE-ID` アイテム)。反復識別子の形式は、UTC 形式での時刻です (`20120913T160000Z` など)。

戻り値	説明
`NotesDocument`	文書。

可能性のある例外 (lsxbeerr.lss)	値	テキスト	説明
`lsERR_NOTES_ERR_INVALIDID`	4757	無効 ID	NotesCalendarEntry オブジェクトの識別子が無効です。
`lsERR_NOTES_ERR_RECURID_NOTFOUND`	4808	反復識別子が見つかりません。	NotesCalendarEntry オブジェクトの反復識別子が無効です。
`lsERR_NOTES_ERR_IDNOTFOUND`	4814	ID が見つかりません	NotesCalendarEntry オブジェクトの反復識別子がカレンダーのエントリを示していないか、反復識別子の `scope` と `recurid` がありません。

例

このエージェントは、指定された UID のカレンダー文書を取得します。

Sub Initialize
	Dim session As New NotesSession
	Dim maildb As New NotesDatabase("", "")
	Dim cal As NotesCalendar
	Dim cale As NotesCalendarEntry
	Dim uid As String
	Dim caldoc As NotesDocument
	Dim calestr As String
	Dim recurid As String
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim body As NotesRichTextItem
	uid = session.Getenvironmentstring("currentuid")
	If uid = "" Then
		MessageBox "No current UID",, "Error"
		Exit sub
	End If
	recurid = session.Getenvironmentstring("currentrecurid")
	Call maildb.Openmail()
	Set cal = session.getCalendar(maildb)
	Set cale = cal.Getentry(uid)
	If recurid = "" Then
		Set caldoc = cale.Getasdocument()
	Else
		Set caldoc = cale.Getasdocument(0, recurid)
	End If
	calestr = caldoc.Getitemvalue("subject")(0)
	REM Write results to document
	Set db = session.Currentdatabase
	Set doc = db.Createdocument()
	doc.Form = "main"
	doc.Subject = "Calendar entry"
	Set body = doc.Createrichtextitem("body")
	body.Appendtext(calestr)
	Call doc.Save(true, true)
End Sub

クロスリファレンス

Java™ NotesCalendarEntry クラスの getAsDocument メソッド