Domino 9 und frühere Versionen > ND9: Entwicklung

Farbe für Kategorien im Kalender-Profil per Script setzen

(1/3) > >>

Bruce Willis:
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?


--- Code: ---                                 '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)

--- Ende Code ---

Gruß
Leo

WildVirus:
Was passiert, wenn Du über den Profildialog gehst ?

Nach (!!!) dem Klick auf OK zum Schließen des Profils denkt Notes "kurz" nach und die Farben sind geändert.

Also - schau im IBM Code nach, wass nach dem Klick auf OK passiert. Und bau das bei Dir ein oder ruf die passende IBM-Funktion auf.

eknori (retired):
Wenn du die Werte im Backend änderst, dann sind die Änderungen erst nach dem Neustart des Client verfügbar. Liegt in der Natur dieser idiotischen Profile Docs

WildVirus:
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:

--- Code: --- 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
--- Ende Code ---

Das muss Leo nur bei sich einbauen.

Bruce Willis:

--- Zitat von: eknori am 26.08.16 - 20:14:07 ---Wenn du die Werte im Backend änderst, dann sind die Änderungen erst nach dem Neustart des Client verfügbar.

--- Ende Zitat ---
Danke, Ulrich!
Leider hilft in dem Fall auch der Neustart nicht. So wie auch leeren CACHE.NDK u.ä.
Es scheint, dass noch etwas passieren sollte. Ich frage mich, ob ich auf dem Server z.B. über Admin-Console oder auch zeitgesteuert etwas über alle Benutzer-Maildatenbanken anstossen könnte...

Navigation

[0] Themen-Index

[#] Nächste Seite