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
Dietmar Vollmeier  Homepage  31.01.2009  1.12 KB   3593