Cancel code where its skipping few entries and deleting only initial and cancel entry from the calendar

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

here is the code:

Set eDoc = db.CreateDocument
eDoc.Form = "Notice"
edoc.NoticeType = "C"
'eDoc.Repeats = ""
Call edoc.ReplaceItemValue("SequenceNum", sn)
Call edoc.ReplaceItemValue("UpdateSeq", snu)
edoc.ApptUNID= doc.ApptUNID(0)
Call edoc.ReplaceItemValue("$CSFLAGS" , "w")
Call edoc.ReplaceItemValue("$CSVersion", "2")
Call edoc.ReplaceItemValue("$RefOptions","1")
Call edoc.MakeResponse(doc)
edoc.AppointmentType= doc.AppointmentType(0) 'This has to be 3
Call edoc.ReplaceItemValue("_ViewIcon" , 81)
Call edoc.ReplaceItemValue("$PublicAccess", "1")
Call edoc.ReplaceItemValue("$SMTPKeepNotesItems","1")
Call edoc.ReplaceItemValue("$BusyPriority", 1)
Call edoc.ReplaceItemValue("$BusyName", doc.RequiredAttendees_1)
'Call CopyDollarField(doc,"$CSWISL", edoc)
edoc.SendTo= doc.SendTo_1
edoc.CopyTo = doc.EnterCopyTo_1
'edoc.AltOptionalNames = edoc.CopyTo
edoc.OptionalAttendees = edoc.CopyTo
edoc.BlindCopyTo = doc.EnterBlindCopyTo_1
'edoc.AltFYINames = edoc.BlindCopyTo
edoc.FYIAttendees = edoc.BlindCopyTo
edoc.RequiredAttendees= doc.RequiredAttendees_1
'edoc.AltRequiredNames = edoc.RequiredAttendees
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.StartTimeZone= doc.StartTimeZone(0)
edoc.EndTimeZone= doc.EndTimeZone(0)
'edoc.CalendarDateTime= doc.CalendarDateTime_1(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.EndTime= doc.EndDateTime_1(0)
edoc.EndDateTime= doc.EndDateTime_1(0)
edoc.tmpEndTime_Local= doc.tmpEndTime_Local_1(0)
edoc.tmpStartTime_Local= doc.tmpStartTime_Local_1(0)
edoc.Location= doc.Location_1(0)
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

Feedback response number WEBBA4FQQ4 created by ~Phil Ekniskinivu on 11/20/2015