Farbe von Kalendereinträge anpassen

Ein nützlicher Tipp wie man Kalendereinträge von anderen abhebt.
Version Lotus Notes 6,7,8 (getestet mit 6 + 8).

 

Die Ansicht "($Calendar)" enthält die Spalte "color2(hidden)" folgenden Code:
(Die Quellcodeangaben weichen von den Farben her etwas in den unterschiedlichen Versionen ab)

 

REM {this color column is used only if the user has not saved their mail preferences};
meeting := 193:221:249:42:107:171;
appointment := 194:247:159:52:100:16;
reminder := 255:210:138:201:95:0;
event := 254:248:198:201:95:0;
anniversary := 215:180:242:146:88:192;
todo := 255:243:138:229:119:0;
ghost := 230:230:230:64:64:64;
cancel := 216:136:112:0:0:0;
@If(@LowerCase(form) = "task"; todo;
@IsAvailable(CalendarDateTime) & Form = "Notice" & _ViewIcon != 81 | ($GhostedCalendarEntry = "1" & !Form="Appointment" & !Form="Notice"); ghost;
@IsAvailable(CalendarDateTime) & Form = "Notice" & _ViewIcon = 81; cancel;
AppointmentType = "0"; appointment;
AppointmentType = "1"; anniversary;
AppointmentType = "2"; event;
AppointmentType = "3"; meeting;
AppointmentType = "4"; reminder; "")

 

Die Idee:
Man setzt ein zusätzliches Feld in die Kalendereinträge und fragt die Werte ab.
Das sieht dann für die Spalte "color2 (hidden)" so aus:

 

REM {this color column is used only if the user has not saved their mail preferences};
@If (ccolor_meeting = ""; meeting := 193:221:249:42:107:171; meeting := ccolor_meeting);
@If (ccolor_appointment = ""; appointment := 194:247:159:52:100:16; appointment := ccolor_appointment);
reminder := 255:210:138:201:95:0;
event := 254:248:198:201:95:0;
anniversary := 215:180:242:146:88:192;
todo := 255:243:138:229:119:0;
ghost := 230:230:230:64:64:64;
cancel := 216:136:112:0:0:0;
@If(@LowerCase(form) = "task"; todo;
@IsAvailable(CalendarDateTime) & Form = "Notice" & _ViewIcon != 81 | ($GhostedCalendarEntry = "1" & !Form="Appointment" & !Form="Notice"); ghost;
@IsAvailable(CalendarDateTime) & Form = "Notice" & _ViewIcon = 81; cancel;
AppointmentType = "0"; appointment;
AppointmentType = "1"; anniversary;
AppointmentType = "2"; event;
AppointmentType = "3"; meeting;
AppointmentType = "4"; reminder; "")

 

Jetzt noch die Aktionen.

Man erstellt sich eine Aktion("Farbe") mit Unteraktion (Blau):
@If (AppointmentType ="3"; FIELD ccolor_meeting := 0:0:255:0:0:0; "");
@If (AppointmentType ="0"; FIELD ccolor_appointment := 0:0:255:0:0:0; "");
@Command([ViewRefreshFields])

 

Eine weitere Unteraktion(Standard) um die Farben zurückzusetzen:
@If (AppointmentType ="3"; FIELD ccolor_meeting := ""; "");
@If (AppointmentType ="0"; FIELD ccolor_appointment := ""; "");
@Command([ViewRefreshFields])