Composing new cancel email its not canceling entry

HCL Domino Domino Forum
1

Following is the code I am using to send email to user but its not deleting calendar entry:

Set eDoc = db.CreateDocument

Call edoc.ReplaceItemValue("SequenceNum",  sn)

Call edoc.ReplaceItemValue("UpdateSeq",  sn)

eDoc.Repeats = ""

edoc.ApptUNID= doc.ApptUNID(0)

Call edoc.ReplaceItemValue("$CSFLAGS" ,  "w")

eDoc.Form = "Notice"

edoc.AppointmentType= doc.AppointmentType(0) 

Call edoc.ReplaceItemValue("_ViewIcon" ,  81)

edoc.NoticeType = "C"

Call edoc.ReplaceItemValue("$CSVersion", "2")	

Call edoc.ReplaceItemValue("$RefOptions","1")

Call edoc.ReplaceItemValue("$PublicAccess", "1")

Call edoc.ReplaceItemValue("$SMTPKeepNotesItems","1")

Call edoc.ReplaceItemValue("$BusyPriority", 2)	

Call edoc.ReplaceItemValue("tmpDoNotProcess", "1")

Call edoc.ReplaceItemValue("$Ref", doc.ApptUNID(0))	

edoc.EndTimeZone= doc.EndTimeZone(0)

edoc.StartTimeZone= doc.StartTimeZone(0)		

edoc.StartDate= doc.StartDate_1(0)

'edoc.StartTime= doc.StartDateTime_1(0)

edoc.StartDateTime= doc.StartDateTime_1(0)	

edoc.EndDate= doc.EndDate_1(0)

edoc.EndDateTime= doc.EndDateTime_1(0)		

edoc.From= doc.From(0)

'edoc.MailOptions= doc.MailOptions(0)

'edoc.PreventCounter= doc.PreventCounter(0)

'edoc.PreventDelegate= doc.PreventDelegate(0)

edoc.Chair= doc.Chair(0)

'edoc.Organizer = doc.Chair(0)'

edoc.Principal= doc.Principal(0)	

edoc.CalendarDateTime= doc.CalendarDateTime_1(0)			

edoc.Location= doc.Location_1(0)	

edoc.SendTo= doc.SendTo_1

edoc.CopyTo = doc.EnterCopyTo_1

edoc.BlindCopyTo = doc.EnterBlindCopyTo_1	

edoc.RequiredAttendees= doc.RequiredAttendees_1

'edoc.AltRequiredNames = edoc.RequiredAttendees

'edoc.AltOptionalNames = edoc.CopyTo

edoc.OptionalAttendees = edoc.CopyTo

'edoc.AltFYINames = edoc.BlindCopyTo

edoc.FYIAttendees = edoc.BlindCopyTo	

edoc.RequiredResources= doc.RequiredResources_1

edoc.Room= doc.Room_1(0)

edoc.Subject= "Cancelled: " + doc.Topic_1(0) + " (" + Format$(doc.StartDateTime_1(0), "mmm dd hh:mm AM/PM") +  ")"

edoc.Topic= doc.Topic_1(0)

Set RTItem2 = doc.GetFirstItem("StatusUpdate")

'Set RTItem3 = doc.GetFirstItem("BodyAll")

If Not RTItem2 Is Nothing Then

	Set RTItem = RTItem2.CopyItemToDocument(edoc, "StatusUpdate" )

Else

	Set RTItem = edoc.CreateRichTextItem("StatusUpdate")

End If

If Not edoc Is Nothing Then				

	Call eDoc.Send( False )				

End If