
Es gibt wieder mal eine neue Abzocke im Internet, Benutzer werden auf scheinbar "kostenlosen Webseiten" dazu bewegt ihre Daten zu hinterlegen und die AGBs zu akzeptieren. Kurze Zeit darauf...
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])
Ich hoffe ihr könnt damit was anfangen.