如何安排作业在Oracle ( sql developer或Toad )中运行，以触发最近连接到特定数据库的任何人的邮件

CREATE OR REPLACE PROCEDURE send_email (
    p_recipient   IN VARCHAR2,
    p_subject     IN VARCHAR2,
    p_message     IN VARCHAR2
) AS
    l_mailhost    VARCHAR2(255) := 'your_mail_host';
    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);
    UTL_SMTP.mail(l_mail_conn, 'your_email_address');
    UTL_SMTP.rcpt(l_mail_conn, p_recipient);
    UTL_SMTP.data(l_mail_conn,
        'Subject: ' || p_subject || UTL_TCP.crlf ||
        'From: your_email_address' || UTL_TCP.crlf ||
        'To: ' || p_recipient || UTL_TCP.crlf ||
        UTL_TCP.crlf ||
        p_message
    );
    UTL_SMTP.quit(l_mail_conn);
END;
/

BEGIN
    DBMS_SCHEDULER.create_job(
        job_name        => 'send_email_job',
        job_type        => 'PLSQL_BLOCK',
        job_action      => 'BEGIN send_email(''recipient@example.com'', ''New Connection Alert'', ''A new user has connected to the database.''); END;',
        start_date      => SYSTIMESTAMP,
        repeat_interval => 'FREQ=MINUTELY; INTERVAL=5',
        enabled         => TRUE
    );

    DBMS_SCHEDULER.create_trigger(
        trigger_name    => 'send_email_trigger',
        event_type      => 'AFTER LOGON',
        event_object    => NULL,
        event_condition => 'SID = (SELECT MAX(SID) FROM V$SESSION)',
        queue_spec      => 'SYS.DEFAULT_JOB_QUEUE',
        enabled         => TRUE
    );
END;
/