(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern
Home » Scripte » Ereignisscripte » OnOutgoingMessageCheck » CheckGroupPermissions

CheckGroupPermissions

E-Mail Drucken PDF

Verschiedene Gruppenberechtigungen werden vor dem Senden einer Nachricht überprüft.

Zur Zeit sind folgende Funktionen eingebunden:

  • Überprüfung, ob Nachrichten in eine bestimmte Gruppe geschrieben werden dürfen.

 

Name und Funktion

Include : {$I _i_OOMC_CheckGroupPermissions}
Funktion : PermitSending (Message);

 

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

{*******************************************************************************
*                            OnOutgoingMessageCheck                            *
*******************************************************************************}
Program OnOutgoingMessageCheck;

//--[ Include-Files ]-----------------------------------------------------------
{$I _i_OOMC_CheckGroupPermissions}

//--[ Procedure OnOutgoingMessageCheck ]----------------------------------------
Procedure OnOutgoingMessageCheck(
       Message          : TStringlist;
   Var Warnings, Errors : TStringlist
);
Begin
   // Gruppenberechtigungen überprüfen
   If Not PermitSending(Message) Then
   Begin
      Warnings.Add('Das Versenden einer Nachricht ist in dieser Gruppe nicht gewünscht');
      Errors.Add('Berechtigung für das Senden einer Nachricht');
      Beep;
   End;

End;
//------------------------------------------------------------------------------
Begin
End.

 

Download

CheckGroupPermissions v.1.1.0
Autor Dietmar Vollmeier Webseite Homepage Datum 31.01.2009 Dateigröße 1.12 KB  Download 1634

 

Zuletzt aktualisiert am Sonntag, den 18. September 2011 um 13:07 Uhr