Send mail dynamically

Question

Hi,
I've this table:
CREATE TABLE USER_MAIL
USER_NAME VARCHAR2(32 BYTE),
DATA_MODIFY DATE,
MAIL_ADDRESS VARCHAR2(64 BYTE)
INSERT INTO USER_MAIL ( USER_NAME, DATA_MODIFY, MAIL_ADDRESS ) VALUES (
'SMITH', TO_Date( '11/15/2008 12:02:00 AM', 'MM/DD/YYYY HH:MI:SS AM'), '[email protected]');
INSERT INTO USER_MAIL ( USER_NAME, DATA_MODIFY, MAIL_ADDRESS ) VALUES (
'TOM', TO_Date( '10/08/2008 12:03:00 AM', 'MM/DD/YYYY HH:MI:SS AM'), '[email protected]');
INSERT INTO USER_MAIL ( USER_NAME, DATA_MODIFY, MAIL_ADDRESS ) VALUES (
'AFM', TO_Date( '11/10/2008 12:01:00 AM', 'MM/DD/YYYY HH:MI:SS AM'), '[email protected]');
INSERT INTO USER_MAIL ( USER_NAME, DATA_MODIFY, MAIL_ADDRESS ) VALUES (
'SAM', TO_Date( '12/11/2008 12:02:00 AM', 'MM/DD/YYYY HH:MI:SS AM'), '[email protected]');
commit;
SELECT USER_NAME, DATA_MODIFY,MAIL_ADDRESS, (TRUNC(sysdate) - TRUNC(DATA_MODIFY)) DIFF
FROM USER_MAIL;
USER_NAME............DATA_MODIFY..........MAIL_ADDRESS.......DIFF
SMITH............15/11/2008 0.02.00.............[email protected]......27
TOM..............08/10/2008 0.03.00.............[email protected]..65
AFM..............10/11/2008 0.01.00.............[email protected]......32
SAM..............11/12/2008 0.02.00.............[email protected].....1
......................................................................................more 1000 rows
I'd like to create a stored procedure that send mail at user name
when the difference between sysdate and data_modify is > 30 days.
I create correctly the procedure to send mail but I don't know how can I change the recipient when diff is > 30 days.
In my example I must send mail at TOM([email protected]) and AFM ([email protected])
How can I create this stored procedure?
Thanks in advance!

Answer 1

this is my correct procedure that send mail:
CREATE OR REPLACE PROCEDURE send_mail (sender IN varchar2,
recipient IN varchar2,
recipient2 IN varchar2,
oggetto IN varchar2,
messaggio IN varchar2) IS
mailhost varchar2(40) := 'mail.cww.it';
conn utl_smtp.connection;
crlf varchar2(2) := CHR(13)||CHR(10);
messag varchar2(3000);
v_sender varchar2(2000) := sender;
BEGIN
conn := utl_smtp.open_connection (mailhost, 25);
messag := 'DATE: '||to_char(sysdate, 'dd-mon-yy hh24:mi:ss')||crlf||
'FROM: <'||sender||'>'||crlf||
'SUBJECT: '||oggetto||crlf||
'TO: '||recipient||'; '
||recipient2||' '
||crlf||messaggio;
utl_smtp.helo(conn, mailhost);
utl_smtp.mail (conn, v_sender);
utl_smtp.rcpt (conn, recipient);
utl_smtp.rcpt (conn, recipient2);
utl_smtp.data(conn, messag);
utl_smtp.quit(conn);
EXCEPTION when utl_smtp.transient_error or utl_smtp.permanent_error then
utl_smtp.quit(conn);
raise_application_error (-20000,sqlerrm);
END;
How can modify this procedure in my case?
Thanks