Оповещать нужных пользователей по электронной почте об любых изменениях в БД

BEGIN
 DBMS_FGA.ADD_POLICY(
   object_schema   => 'SINOPTIK', 
   object_name     => 'OBJECTS', 
   policy_name     => 'SINOPTIK_MONITORING', 
   --audit_condition VARCHAR2, 
   --audit_column    VARCHAR2, 
   --handler_schema  VARCHAR2, 
   handler_module  => 'custom_audit.manage_audit', 
   enable          =>  TRUE, 
   statement_types => 'SELECT,UPDATE,DELETE,INSERT'
   --audit_trail     BINARY_INTEGER IN DEFAULT,
   --audit_column_opts BINARY_INTEGER IN DEFAULT
   );
END;

CREATE OR REPLACE PACKAGE custom_audit AS
  PROCEDURE manage_audit(p_schema VARCHAR2, p_obj VARCHAR2, p_pol VARCHAR2);
  PROCEDURE send_mail(p_sender IN VARCHAR2, p_recipient IN VARCHAR2, p_message IN VARCHAR2);
END;

CREATE OR REPLACE PACKAGE BODY custom_audit AS
  PROCEDURE manage_audit(p_schema VARCHAR2, p_obj VARCHAR2, p_pol VARCHAR2) AS    
    cur_user all_users.username%TYPE;
    v_command VARCHAR2(32000);
  BEGIN
    BEGIN
      SELECT sql_text INTO v_command FROM dba_fga_audit_trail WHERE db_user = USER 
        AND TIMESTAMP = (SELECT MAX(TIMESTAMP) FROM dba_fga_audit_trail WHERE db_user = USER);
    EXCEPTION
      WHEN OTHERS THEN raise_application_error(-20000,'Исключение: ' || SQLCODE || ' ' || SQLERRM);
    END;
    BEGIN
      SELECT USER INTO cur_user FROM dual;
    EXCEPTION
      WHEN OTHERS THEN raise_application_error(-20000,'Исключение: ' || SQLCODE || ' ' || SQLERRM);
    END;    
    send_mail('sinoptik@mail.ru','sinoptik@gmail.com','''' || cur_user || '' || ' - ' || '' || v_command || '''');     
  END;
  
  PROCEDURE send_mail(p_sender IN VARCHAR2, p_recipient IN VARCHAR2, p_message IN VARCHAR2) AS   
    l_mailhost VARCHAR2(255) := 'smtp.mail.ru';
    l_mail_conn utl_smtp.connection;
  BEGIN
    l_mail_conn := utl_smtp.open_connection(l_mailhost, 25);
    utl_smtp.helo(l_mail_conn, l_mailhost);
    -- For Authenication
    UTL_SMTP.command(l_mail_conn,'AUTH LOGIN');
    UTL_SMTP.command(l_mail_conn, UTL_RAW.CAST_TO_VARCHAR2(
      UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW('SINOPTIK'))));
    UTL_SMTP.command(l_mail_conn, UTL_RAW.CAST_TO_VARCHAR2(
      UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW('PASSWORD'))));
    -- For Authenication  
    utl_smtp.mail(l_mail_conn, p_sender);
    utl_smtp.rcpt(l_mail_conn, p_recipient);
    utl_smtp.open_data(l_mail_conn );
    utl_smtp.write_data(l_mail_conn, p_message);
    utl_smtp.close_data(l_mail_conn );
    utl_smtp.quit(l_mail_conn);
  END;    
END;