| 12
 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