GetAsDocument (NotesCalendarEntry - LotusScript®)

Gets the document that contains a calendar entry.

Defined in

NotesCalendarEntry

Syntax

Set notesDocument = notesCalendarEntry.GetAsDocument( [ flags& ] , [ recurid$ ] )
Parameter Description
flags Long. One of the following:
  • CS_DOCUMENT_NOSPLIT (1)
  • 0
recurid String. The recurrence identifier (RECURRENCE-ID item) for a recurring calendar event. The format of a recurrence identifier is a time in UTC format, for example, 20120913T160000Z.
Return value Description
NotesDocument The document.
Possible exception (lsxbeerr.lss) Value Text Description
lsERR_NOTES_ERR_INVALIDID 4757 Invalid ID The identifier for the NotesCalendarEntry object is not valid.
lsERR_NOTES_ERR_RECURID_NOTFOUND 4808 Recurrence-ID not found The recurrence identifier for the NotesCalendarEntry object is not valid.
lsERR_NOTES_ERR_IDNOTFOUND 4814 Identifier not found The recurrence identifier for the NotesCalendarEntry object does not identify an entry in the calendar, or the scope and recurid are missing for a recurring entry.

Examples

This agent gets a calendar document given its 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