//*********************************************************************
//*                 PROGRAM - OnEmailChecked 2020-07-14               *
//*                        >> Ereignisscript <<                       *
//*                                                                   *
//* Funktionalitaet: [x] neutral                                      *
//*                  [ ] nur Basis_Modul                              *
//*                  [ ] nur Pathfinder                               *
//*                                                                   *
//* Datum     : ueberarbeitet am: 14.07.2020                          *
//* Autor     : Thomas Barghahn                                       *
//*                                                                   *
//*********************************************************************
program OnEmailChecked;

uses TextFile;

{$i Dialog_Functions}

procedure OnEmailChecked(Identity:string; FetchedCount,
                         TotalOnServerBefore,
                         TotalOnServerAfter: integer);

   begin
      if FetchedCount > 0 then begin
         PlaySound('post.wav', 1);
      end;
   end; // Procedure;

begin
end.