CheckGroupPermissions

Freitag, den 30. Januar 2009 um 11:35 Uhr Dietmar Vollmeier

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.