Hallo,
ich habe per LS einen Kalendereintrag beim User erstellt. Der Termin wird auch im Kalender angezeigt. Bei manuellen Änderungen an dem Termin erhält der User beim Speichern folgenden Hinweis:
"Beim Speichern ist ein Fehler aufgetreten. Element des Dokuments nich gefunden"
Hat jemand eine Idee welche Element feht ? Hier der Auszug aus dem Code:
'Felder für den Termin setzen
Set kalender_doc = New NotesDocument(userdb)
Dim body As New NotesRichTextItem(kalender_doc, "Body")
kalender_doc.Form = "Appointment"
kalender_doc.AppointmentType = "2"
kalender_doc.Categories = "Urlaub"
kalender_doc.Subject = vwz
kalender_doc.~_ViewIcon = 9
kalender_doc.~$AltPrincipal = person.Canonical kalender_doc.~$BusyName = person.Common
Set itemTemp = kalender_doc.GetFirstItem ("$BusyName")
itemTemp.IsNames = True
kalender_doc.~$BusyPriority = "1"
kalender_doc.~$CSversion = "2"
kalender_doc.~$PublicAccess = "1"
kalender_doc.~$FromPreferredLanguage = "de"
kalender_doc.~$TableSwitcher = "Description"
kalender_doc.~$PublicAccess = 1
kalender_doc.~IconSwitcher = "AllDayEvent"
kalender_doc.OrgState = "x"
kalender_doc.AltChair =person.Canonical
kalender_doc.BookFreeTime = ""
kalender_doc.Chair = person.Canonical
kalender_doc.ExcludeFromView = "D"
kalender_doc.ExcludeFromView = Arrayappend( kalender_d.ExcludeFromView, "S" )
kalender_doc.Principal = person.Canonical
kalender_doc.tmpOwnerHW = "1"
kalender_doc.Logo = "StdNotesLtr14"
kalender_doc.dispduration_1 =" 1 Stunde"
'Termine Beginn
kalender_doc.StartDate = startDateTime.LocalTime
kalender_doc.StartDateTime = startDateTime.LocalTime
kalender_doc.StartTime = startDateTime.LocalTime
kalender_doc.tmpStartDate1 = startDateTime.LocalTime
kalender_doc.tmpStartTime_Local = startDateTime.LocalTime
kalender_doc.tmpStartTimeTZText = startDateTime.LocalTime
kalender_doc.tmpStartDateTZText = startDateTime.LocalTime
'Termine Ende
kalender_doc.EndDate = endeDateTime.LocalTime
kalender_doc.EndDateTime = endeDateTime.LocalTime
kalender_doc.EndTime = endeDateTime.LocalTime
kalender_doc.~$NoPurge = endeDateTime.LocalTime
kalender_doc.tmpEndTime_Local = endeDateTime.LocalTime
kalender_doc.tmpEndTimeTZText = endeDateTime.LocalTime
kalender_doc.tmpEndDateTZText = endeDateTime.LocalTime
'wiederkehrende Termine
Dim ndt_CalendarDateTime As Variant
Redim ndt_CalendarDateTime(0)
ndt_CalendarDateTime(0) = startDateTime.LSLocalTime
Call startDateTime.AdjustDay(1)
i = 0
While endeDateTime.TimeDifference(startDateTime) > 0
Redim Preserve ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime) + 1)
ndt_CalendarDateTime(Ubound(ndt_CalendarDateTime)) = startDateTime.LSLocalTime
call startDateTime.AdjustDay(1)
Wend
kalender_doc.CalendarDateTime = ndt_CalendarDateTime
'Termin speichern
Call kalender_doc.save(True, True)
'Call MailVersenden(person.Canonical, "Mail_OSP_ZW_genehmigt")