Repeat calendar entry => a lot of mails sent to the organizer

HCL Domino Domino Forum
1

Dear Forum,

I have a problem in my LotusScript application. I have created a toolbar button whose clicks opens a pre-filled calendar entry. Here is the code:

Dim s As New NotesSession

Dim uiw As New NotesUIWorkspace

Dim db As New NotesDatabase(“”, “”)

Call db.openmail

'Construction of the calendar entry by setting various document items to specific values

Call doc.AppendItemValue(“$PublicAccess”, “1”)

Call doc.AppendItemValue(“Notes”, “”)

Call doc.AppendItemValue(“Chair”, sessionusername)

Call doc.AppendItemValue(“Principal”, sessionusername)

Call doc.AppendItemValue(“$altPrincipal”, sessionusername)

Call doc.AppendItemValue(“ExcludeFromView”, “D”)

Call doc.AppendItemValue(“SequenceNum”, “”)

Call doc.AppendItemValue(“UpdateSeq”, “”)

Call doc.AppendItemValue(“$CSVersion”, “2”)

Call doc.AppendItemValue(“$SMTPKeepNotesItems”, “1”)

Call doc.AppendItemValue(“$CSWISL”, “$S:1”)

Call doc.AppendItemValue(“WebDateTimeInit”, “1”)

Call doc.AppendItemValue(“$IconSwitcher”, “Meeting”)

Call doc.AppendItemValue(“OrgTable”, “C0”)

Call doc.AppendItemValue(“CopyTo”, “”)

Call doc.AppendItemValue(“BlindCopyTo”, “”)

Call doc.AppendItemValue(“InetSendTo”, “test@arkadin.com”)

Call doc.AppendItemValue(“InetCopyTo”, “”)

Call doc.AppendItemValue(“InetBlindCopyTo”, “”)

Call doc.AppendItemValue(“$StorageTo”, “.”)

Call doc.AppendItemValue(“$HFFlags”, “1”)

Call doc.AppendItemValue(“Form”, “Appointment”)

Call doc.AppendItemValue(“Logo”, “StdNotesLtr25”)

Call doc.AppendItemValue(“SaveOptions”, “”)

Call doc.AppendItemValue(“MailOptions”, “0”)

Call doc.AppendItemValue(“$FromPreferredLanguage”, “fr”)

Call doc.AppendItemValue(“$LangChair”, “”)

Call doc.AppendItemValue(“AppointmentType”, “3”)

Call doc.AppendItemValue(“$TableSwitcher”, “Description”)

Call doc.AppendItemValue(“OnlineMeeting”, “”)

Call doc.AppendItemValue(“From”, sessionusername)

Call doc.AppendItemValue(“AltChair”, sessionusername)

Call doc.AppendItemValue(“OnlinePlace”, “”)

Call doc.AppendItemValue(“IsBroadcast”, “0”)

Call doc.AppendItemValue(“$ExpandGroups”, “3”)

Call doc.AppendItemValue(“OrgConfidential”, “”)

Call doc.AppendItemValue(“Broadcast”, “”)

Call doc.AppendItemValue(“PreventCounter”, “”)

Call doc.AppendItemValue(“Location”, arkadinconferenceinvitedoc.GetItemValue(“ConferenceType”)(0))

Call doc.AppendItemValue(“RoomToReserve”, “”)

Call doc.AppendItemValue(“Resources”, “”)

Call doc.AppendItemValue(“WhiteBoardContent”, “”)

Call doc.AppendItemValue(“Categories”, “”)

Call doc.AppendItemValue(“$BorderColor”, “7F96A3”)

Call doc.AppendItemValue(“$WatchedItems”, “$S”)

Call doc.AppendItemValue(“ReturnReceipt”, “”)

Call doc.AppendItemValue(“Sign”, “”)

Call doc.AppendItemValue(“Encrypt”, “”)

Call doc.AppendItemValue(“BookFreeTime”, “”)

Call doc.AppendItemValue(“PreventDelegate”, “”)

Call doc.AppendItemValue(“EnterSendTo”, “”)

Call doc.AppendItemValue(“EnterCopyTo”, “”)

Call doc.AppendItemValue(“SchedulerSwitcher”, “1”)

Call doc.AppendItemValue(“$Abstract”, “”)

Call doc.AppendItemValue(“$UpdatedBy”, sessionusername)

Call doc.AppendItemValue(“Subject”, “”)

Call doc.AppendItemValue(“Body”, “Audio/Web Conférence”)

Call doc.AppendItemValue(“BlindCopyTo”,“”)

Call doc.AppendItemValue(“ApptUNID”,doc.UniversalId)

Call doc.Save(True, True)

'Open the new calendar entry

Call uiw.editDocument(False, doc)

End Sub

When this code is executed, the calendar entry is properly opened in Lotus Notes.

But in this calendar entry, a problem occurs when when selecting “Repeat” option of the appointment. This appointment sends back to the moderator as much as emails that the number of participants multiplied by the number of meetings instance. So 10 people accepting one meeting that occurs 5 times gives 50 emails to the organizer !

Do you know how to avoid such a behaviour?

Thanks in advance,

Mikaël Donini,

Arkadin, France.