Automatisiertes Löschen einer Lotus Notes Datenbank Kachel vom Desktop des Mitarbeiters

Den nachfolgenden Beispielcode können Sie verwenden, um Ihren Mitarbeitern eine E-Mail zuzusenden, in dessen Haupttextfeld Sie eine Schaltfläche eintragen und mit dem folgenden Formeltext belegen. Klicken Mitarbeiter diese Schaltfläche dann später an, wird die definierte Datenbankkachel von der Oberfläche des Lotus Notes Clienten entfernt und anschließend erneut vom Server geöffnet. Die Rückfrage nach dem Löschen der persönlichen Ansichten muss vom Mitarbeiter definitiv mit ja beantwortet werden. Auf diese Weise erhalten alle persönlichen Ansichten nach einem Datenbankupdate die neuen Gestaltungselemente, was sonst nicht der Fall wäre.

REM "Beginn des Beispielcodes";

REM "Geben Sie bitte den Servernamen und den Datenbanknamen inkl. Pfad an!";
REM "Falls Sie nicht den aktuellen Server, auf dem der Benutzer arbeitet, verwenden möchten, können Sie den";
REM "Servernamen auch direkt angeben. Bsp: LT35G324. Server und Dateiname müssen immer in Anführungsstrichen stehen!";
REM "Sofern die Datenbank in einem Unterverzeichnis liegt, müssen Sie statt des Backslash einen Doppelbackslash \\ als Pfadtrenner verwenden";

REM "Der Name des Servers, auf dem der Benutzer arbeitet, wird ermittelt! Statische eigene Angabe ist möglich!";
Server:=@Subset(@DbName;1);

REM "Der Pfad und Dateiname der Datenbank müssen hier eingetragen werden.";
Database:="datenbanken\\meinedatenbank.nsf";

REM "Wenn die Datenbank nicht gefunden wird erfolgt ein Hinweis und der Abbruch der Funktion!";
@If( @DbExists( Server : Database ) ; @Success ;
        @Do( @Prompt([OK]; "Nicht gefunden"; "Die Datenbank kann nicht unter dem angegbenen Server/Pfad gefunden werden. " ) ; @Return("") ) );

REM "Austausch der Kachel";
@Command([WindowWorkspace]);
@Command([AddDatabase]; Server : Database);
@Command([FileDatabaseRemove]) ;
@Command([AddDatabase]; Server : Database);

REM "Rückfrage, ob die Datenbank nach dem Austausch der Kachel geöffnet werden soll.";
_open:= @Prompt([YESNO];"Datenbank öffnen?";"Möchten Sie die Datenbank öffnen?");
@If( _open = 1;  @Command([FileOpenDatabase]; Server : Database); @Return("") );

REM "Ende des Beispielcodes";