Hallo,
ich versuche per LS die Farben im Kalender-Profil zu setzen, was eigentlich auch klappt (siehe Screenshot).
Aber es hat leider keine Auswirkung weder auf die neuen noch auf die alten Termine bzw. deren Farben im Kalender.
Was könnte noch fehlen?
'Call item.AppendToTextlist("Review")
userdoc.Category3List = "Review"
'userdoc.Category3B = doc.backgroundcolor
userdoc.Category3B = "00FF00FF"
'userdoc.Category3F = doc.fontcolor
userdoc.Category3F = "00FFEE00"
'Call item.AppendToTextlist("Sprint Planning")
userdoc.Category4List = "Sprint Planning"
'userdoc.Category4B = doc.backgroundcolor
userdoc.Category4B = "000000FF"
'userdoc.Category4F = doc.fontcolor
userdoc.Category4F = "0099FF00"
userdoc.colorchange = "2"
userdoc.rebuildCalendar = "1"
Call userdoc.ComputeWithForm(False,False)
Call userdoc.Save(True, False)
Gruß
Leo
Hallo Ulrich,
nicht ganz. IBM aktualisiert das on the fly, wenn Du das Profil änderst.
In der Scriptbibliothek "Preferences_de-DE" findet sich ein "Sub UpdateAgentsAndOptions(note As NotesDocument)", das ab Zeile 300 u.a. folgenden Code enthält:
If note.getitemvalue("ColorChange")(0) = "2" Or rebuildPreferences = True Then
If note.HasItem("rebuildCalendar") Then
If note.GetItemValue("rebuildCalendar")(0) = "1" Then
Call ws.ViewRebuildByDBid(db.ReplicaID,"($Calendar)",True,_
rebuildView, rebuildPreferences)
Call ws.ViewRebuildByDBid(db.ReplicaID,"($CSAPIs)",True,_
rebuildView, rebuildPreferences)
End If
End If
Else
Call ws.ViewRefreshByDBID(db.ReplicaID,"($Calendar)",True)
Call ws.ViewRebuildByDBid(db.ReplicaID,"($CSAPIs)",True,rebuildView, rebuildPreferences)
End If
Das muss Leo nur bei sich einbauen.