//*********************************************************************
//*             PROGRAM - OnOutgoingMessageCheck 2020-07-14           *
//*                        >> Ereignisscript <<                       *
//*                                                                   *
//* Funktionalitaet: [x] neutral                                      *
//*                  [ ] nur Basis_Modul                              *
//*                  [ ] nur Pathfinder                               *
//*                                                                   *
//* Datum     : ueberarbeitet am: 14.07.2020                          *
//* Autor     : Dietmar Vollmeier                                     *
//*                                                                   *
//*********************************************************************

Program OnOutgoingMessageCheck;  
  
{$I _i_OOMC_CheckGroupPermissions}  
  
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.