Kalendereintrag: Das Thema wird Dritten nur als "privat" angezeigt

[Hedwig14]

Hallo,
über einen Agenten lasse ich einen Kalendereintrag erzeugen.
Der Mitarbeiter kann den Termin-Anlass im Kalender einsehen (z.B. Urlaub)

Leseberechtigte Dritte sehen jedoch nur den Eintrag "privat".

Ist hier ein Fehler in der ACL oder im beigefügten Agenten ?

Brauche dringend nette Hilfe, habe deshalb schon Stress mit einem Bereichsleiter.....


Auszug aus dem Agenten

'Felder für den Termin setzen
         Set kalender_doc = New NotesDocument(userdb)
         Dim body As New NotesRichTextItem(kalender_doc, "Body")
         Call body.AppendText("automatischer Kalendereintrag auf Grund genehmigter Anträge")
         
         kalender_doc.Form = "Appointment"
         kalender_doc.AppointmentType = "2"
         kalender_doc.Categories = "Urlaub"
         kalender_doc.Subject = Cstr(vwz)
         kalender_doc.~_ViewIcon =  9
         kalender_doc.~$AltPrincipal = person.Canonical
         kalender_doc.~$BusyName = person.Canonical
         Set itemTemp = kalender_doc.GetFirstItem ("$BusyName")
         itemTemp.IsNames = True
         kalender_doc.~$BusyPriority = "1"
         kalender_doc.BookFreeTime = ""
         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.~$RefOptions = "1"
         
         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_doc.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.StartDateTime = startDateTime.LSLocalTime
         kalender_doc.tmpStartDate1 = startDateTime.LSLocalTime
         kalender_doc.tmpStartTime_Local = startDateTime.LSLocalTime
         kalender_doc.tmpStartTimeTZText = startDateTime.LSLocalTime
         kalender_doc.tmpStartDateTZText = startDateTime.LSLocalTime
         
         'Deklaration der Werte für NUR Datum und NUR Zeit Ende
         Dim BeginnTerminDate As New NotesDateTime(startDateTime.DateOnly)            
         Call BeginnTerminDate.SetAnyTime
         Set kalender_doc.StartDate = BeginnTerminDate
         
         Dim BeginnTerminTime As New NotesDateTime(startDateTime.TimeOnly)            
         Call BeginnTerminTime.SetAnyDate
         Set kalender_doc.StartTime = BeginnTerminTime
         Set kalender_doc.AppendStartTime = BeginnTerminTime    
         
   'Termine Ende
         kalender_doc.EndDateTime = endeDateTime.LSLocalTime
         kalender_doc.~$NoPurge = endeDateTime.LSLocalTime
         kalender_doc.tmpEndTime_Local = endeDateTime.LSLocalTime
         kalender_doc.tmpEndTimeTZText = endeDateTime.LSLocalTime
         kalender_doc.tmpEndDateTZText = endeDateTime.LSLocalTime   
         
         'Deklaration der Werte für NUR Datum und NUR Zeit Ende
         Dim EndeTerminDate As New NotesDateTime(endeDateTime.DateOnly)            
         Call EndeTerminDate.SetAnyTime
         Set kalender_doc.EndDate = EndeTerminDate
         
         Dim EndeTerminTime As New NotesDateTime(endeDateTime.TimeOnly)            
         Call EndeTerminTime.SetAnyDate
         Set kalender_doc.EndTime = EndeTerminTime
         Set kalender_doc.AppendEndTime = EndeTerminTime
         
   '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
         
         Call kalender_doc.Computewithform(False, False)
         Call kalender_doc.save(True, True)   
   

[Tode]

Dir fehlt das Item "$PulbicAccess" mit dem Wert "1"

[Driri]

Könnte daran liegen, daß das Item zweimal gesetzt wird 

kalender_doc.~$PublicAccess = "1"     
 kalender_doc.~$FromPreferredLanguage = "de"
 kalender_doc.~$TableSwitcher = "Description"
 kalender_doc.~$PublicAccess =  1

[Tode]

stimmt, hatte ich überlesen... Das ist aber ein text- Feld, damit macht das zweite Mal setzen das Dingens kaputt...

[Driri]

Darauf wollte ich hinaus, der letzte Eintrag gewinnt 

[Hedwig14]

vielen Dank für Eure Hilfe.
Den zweiten (doppelten) Eintrag habe ich natürlich immer übersehen ......