1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
   |  
CREATE OR REPLACE /*PROCEDURE send_mail (sender    IN VARCHAR2, 
                     recipient IN VARCHAR2, 
					                      message   IN VARCHAR2)
IS
    mailhost    VARCHAR2(30) := 'exchange2.cr-paca.fr';
    mail_conn  utl_smtp.connection;
 
BEGIN
    mail_conn := utl_smtp.open_connection(mailhost, 25);
    utl_smtp.helo(mail_conn, mailhost);
    utl_smtp.mail(mail_conn, sender);
    utl_smtp.rcpt(mail_conn, recipient);
    utl_smtp.data(mail_conn, message);
    utl_smtp.quit(mail_conn);
--EXCEPTION
  --  WHEN OTHERS THEN
        -- Handle the error
 
END
/  | 
Partager