Creating Draft Calendar Meeting invitation via Lotus script

HCL Domino Domino Forum
1

Hello,We are planning to build a domino web service that would create a pre filled calendar meeting invitation based on certain fields on a form within a web application. The fields from the web application are mapped into the appointment form and calendar document is created from this. I was able to sucessfully save the document with the web service. However when I open this document in a notes client and save it it seems to be sending the invitation as a reschedule. Is there a way I can create a calendar document in a draft state? If so what are the fields within the appointment from that i can populate to do so.Please find my code below that I had used to create the prefilled calendar document.

Thanks in Advance

Set doc = db.CreateDocument

	Messagebox "URL before Save:" & doc.NotesURL

	doc.Form = "Appointment"		

	doc.Topic = lotusNotesActivity.Subject.GetValueAsString()

	doc.Subject = "Invitation"

	REM Set textItemForm = New NotesItem(doc,"Form", "Notice")	

	

	doc.AppointmentType = "3"

	doc.CHAIR =  Nabhelper.GetCannonicalName(lotusNotesActivity.Chair.GetValueAsString() )

REM Nabhelper is a helper class to get the cannonical names from certain IDs passed by the client

Set textItem = New NotesItem(doc,“From”, Nabhelper.GetCannonicalName(lotusNotesActivity.SentBy.GetValueAsString() ), AUTHORS)

	doc.PRINCIPAL =  Nabhelper.GetCannonicalName(lotusNotesActivity.Chair.GetValueAsString() )

	

	dateOnly = lotusNotesActivity.StartDate.GetValueAsString()

	

	Call doc.AppendItemValue("StartDateTime",dt)

	Call doc.AppendItemValue("EndDateTime",dt)

	REM Call doc.AppendItemValue( "StartDateTime", lotusNotesActivity.StartDate.GetValueAsNotesDateTime()  )

	

	REM Call doc.AppendItemValue( "EndDateTime",  lotusNotesActivity.EndDate.GetValueAsNotesDateTime() )

	REM Call doc.AppendItemValue( "EndDateTime",  lotusNotesActivity.EndDate.GetValueAsNotesDateTime() )

	Set rtitem = doc.CreateRichTextItem("Body")

	Call rtitem.AppendText(lotusNotesActivity.Comments.GetValueAsString() )

	Call doc.AppendItemValue( "AltRequiredNames", newArray )

	Call doc.AppendItemValue( "REQUIREDATTENDEES", newArray )

	Call doc.AppendItemValue( "FYIAttendees", fyiArray )

	Call doc.AppendItemValue( "AltFYINames", fyiArray )		

	

	Call doc.AppendItemValue( "$AltPrincipal",   Nabhelper.GetCannonicalName(lotusNotesActivity.Chair.GetValueAsString() ))

	

	doc.ExcludeFromView = "D"

	Call doc.AppendItemValue("$ExpandGroups","3")

	Call doc.AppendItemValue("$NoPurge",dt )

	Call doc.AppendItemValue("$BusyPriority", "2")

	doc.tmpOwner = Chair

	Call doc.AppendItemValue("$BusyName",   Nabhelper.GetCannonicalName(lotusNotesActivity.Chair.GetValueAsString() ))

	Call doc.AppendItemValue("$BusyName", MeetingFrom)

	Call doc.AppendItemValue("$PublicAccess", "1")

REM	Call doc.AppendItemValue( "altSendTo", stringArray)

	Dim excludeFromView(0 To 1) As String

	excludeFromView(0)="D"

	excludeFromView(1)="S"

	Call doc.AppendItemValue("ExcludeFromView ","S")