Oracle package to send mail

Question

I've this package to send mail:
CREATE OR REPLACE Package PKG_ALERT     IS
procedure PROC_ALERT;
procedure SEND_ALERT (sender IN varchar2,
                          recipient1 IN varchar2,
                          recipient2 IN varchar2,
                          recipient3 IN varchar2,
                          subject IN varchar2,
                          messaggio IN varchar2);
END PKG_AFM_ALERT;
CREATE OR REPLACE Package Body PKG_AFM_ALERT     IS
procedure PROC_ALERT      is
v_appo number;
send_msg varchar2(2000);
BEGIN
    SELECT COUNT(*)
    INTO V_APPO
    FROM MY_TAB
    WHERE STATUS='2'
    AND TIPO NOT IN ('0')
    AND DATA_INS >= TRUNC(SYSDATE)- 4;
          IF V_APPO > 0  THEN
             SEND_ALERT ('[email protected]',
               '[email protected]',
               '[email protected]',
               '[email protected]',
               'my subject',
            'Test';
          END IF;
END PROC_ALERT;
PROCEDURE SEND_ALERT (sender IN varchar2,
                          recipient1 IN varchar2,
                          recipient2 IN varchar2,
                          recipient3 IN varchar2,
                          subject IN varchar2,
                          messaggio IN varchar2)
   IS
    mailhost varchar2(40):= 'my mailhost';
    conn     utl_smtp.connection;
    crlf     varchar2(2):=CHR(13)||CHR(10);
    messag     varchar2(32767);
    v_sender varchar2(2000) := sender;
    cursor riga is
    SELECT EM_NUMBER, FLAG_CID_RIFERIMENTO, STATUS, TIPO, BL_ID, FL_ID, RM_ID, DATA_INS
    FROM MY_TAB
    WHERE STATUS='2'
    AND TIPO NOT IN ('0');
BEGIN
  conn := utl_smtp.open_connection (mailhost, 25);
  messag := 'DATE: '||to_char(sysdate, 'dd-mon-yy hh24:mi:ss')||crlf||
       'FROM: <'||sender||'>'||crlf||
     'SUBJECT: '||subject||crlf||
       'TO: '||recipient1||';  '||recipient2||';  '||recipient3;
  messag := messag||crlf||RPAD('EM_NUMBER',10)||RPAD('STATUS',10)||RPAD('TIPO',10)||RPAD('BL_ID',10)||RPAD('FL_ID',8)||RPAD('RM_ID',8)||RPAD('DATA_INS',15);
  for rec_msg in riga
  loop
    messag := messag||crlf||RPAD(rec_msg.EM_NUMBER,10)||RPAD(rec_msg.STATUS,10)||RPAD(rec_msg.TIPO,10)||RPAD(rec_msg.BL_ID,10)||RPAD(rec_msg.FL_ID,8)||RPAD(rec_msg.RM_ID,8)||RPAD(rec_msg.DATA_INS,15);
   end loop;
  utl_smtp.helo(conn, mailhost);
  utl_smtp.mail (conn, v_sender);
  utl_smtp.rcpt (conn, recipient1);
  utl_smtp.rcpt (conn, recipient2);
  utl_smtp.rcpt (conn, recipient3);
  utl_smtp.data(conn, messag||crlf||crlf||nvl(messaggio,'-'));
  utl_smtp.quit(conn);
EXCEPTION
when utl_smtp.transient_error or utl_smtp.permanent_error  then
  utl_smtp.quit(conn);
  raise_application_error (-20000, 'mail error: '||sqlerrm);
END SEND_ALERT;
END PKG_ALERT;It run correctly (execute PKG_ALERT.PROC_ALERT;)
Now I'd like to insert my address list ([email protected], .....) in a table so if they change addresses, I only change them in the table.
How can I rewrite the procedure PROC_ALERT to take the addresses list from this table?
Thanks in advance!

Answer 1

I tried this:
  CREATE TABLE EMAIL_ADDRESS_LIST
   (EMAIL_ADDRESS VARCHAR2(64),
    ACTIVE  CHAR(1)
CREATE OR REPLACE Package PKG_ALERT     IS
procedure PROC_ALERT;
procedure SEND_ALERT (sender IN varchar2,
                          recipient1 IN varchar2,
                          recipient2 IN varchar2,
                          recipient3 IN varchar2,
                          subject IN varchar2,
                          messaggio IN varchar2);
END PKG_AFM_ALERT;
CREATE OR REPLACE Package Body PKG_AFM_ALERT     IS
procedure PROC_ALERT      is
v_appo number;
send_msg varchar2(2000);
  CURSOR C_RECIPIENTS IS
  SELECT EMAIL_ADDRESS
    FROM EMAIL_ADDRESS_LIST
WHERE ACTIVE='Y';
BEGIN
  FOR R IN C_RECIPIENTS LOOP
    SELECT COUNT(*)
    INTO V_APPO
    FROM MY_TAB
    WHERE STATUS='2'
    AND TIPO NOT IN ('0')
    AND DATA_INS >= TRUNC(SYSDATE)- 4;
          IF V_APPO > 0  THEN
             SEND_ALERT ('[email protected]',
                recipient1 => R.EMAIL_ADDRESS ,
                   recipient2 => R.EMAIL_ADDRESS ,
                   recipient3 => R.EMAIL_ADDRESS ,
                   subject => 'my subject',
                   MESSAGGIO => 'Test');
          END IF;
END LOOP;
END PROC_ALERT;
PROCEDURE SEND_ALERT (sender IN varchar2,
                          recipient1 IN varchar2,
                          recipient2 IN varchar2,
                          recipient3 IN varchar2,
                          subject IN varchar2,
                          messaggio IN varchar2)
   IS
    mailhost varchar2(40):= 'my mailhost';
    conn     utl_smtp.connection;
    crlf     varchar2(2):=CHR(13)||CHR(10);
    messag     varchar2(32767);
    v_sender varchar2(2000) := sender;
    cursor riga is
    SELECT EM_NUMBER, FLAG_CID_RIFERIMENTO, STATUS, TIPO, BL_ID, FL_ID, RM_ID, DATA_INS
    FROM MY_TAB
    WHERE STATUS='2'
    AND TIPO NOT IN ('0');
BEGIN
  conn := utl_smtp.open_connection (mailhost, 25);
  messag := 'DATE: '||to_char(sysdate, 'dd-mon-yy hh24:mi:ss')||crlf||
       'FROM: <'>'||crlf||
     'SUBJECT: '||subject||crlf||
       'TO: '||recipient1||';  '||recipient2||';  '||recipient3;
  messag := messag||crlf||RPAD('EM_NUMBER',10)||RPAD('STATUS',10)||RPAD('TIPO',10)||RPAD('BL_ID',10)||RPAD('FL_ID',8)||RPAD('RM_ID',8)||RPAD('DATA_INS',15);
  for rec_msg in riga
  loop
    messag := messag||crlf||RPAD(rec_msg.EM_NUMBER,10)||RPAD(rec_msg.STATUS,10)||RPAD(rec_msg.TIPO,10)||RPAD(rec_msg.BL_ID,10)||RPAD(rec_msg.FL_ID,8)||RPAD(rec_msg.RM_ID,8)||RPAD(rec_msg.DATA_INS,15);
   end loop;
  utl_smtp.helo(conn, mailhost);
  utl_smtp.mail (conn, v_sender);
  utl_smtp.rcpt (conn, recipient1);
  utl_smtp.rcpt (conn, recipient2);
  utl_smtp.rcpt (conn, recipient3);
  utl_smtp.data(conn, messag||crlf||crlf||nvl(messaggio,'-'));
  utl_smtp.quit(conn);
EXCEPTION
when utl_smtp.transient_error or utl_smtp.permanent_error  then
  utl_smtp.quit(conn);
  raise_application_error (-20000, 'mail error: '||sqlerrm);
END SEND_ALERT;
END PKG_ALERT;I am having problems with the mail server and I can not test it, is correct?
How can I using also the sender in a table?
Have you any idea?