Como enviar correo con PL/SQL

[Linterns]

crea un procedimiento almacenado

Código:

PROCEDURE ENVIAR(ENVIA     IN VARCHAR2, 
   RECIBE    IN VARCHAR2, 
   ASUNTO    IN VARCHAR2, 
   MENSAJE   IN VARCHAR2, 
   HOST      IN VARCHAR2) 
IS 
  mailhost     VARCHAR2(30) := ltrim(rtrim(HOST)); 
  mail_conn    utl_smtp.connection;  
   
  crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 ); 
  mesg VARCHAR2( 1000 ); 
BEGIN 
  mail_conn := utl_smtp.open_connection(mailhost, 25); 
  mesg:= 'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf || 
         'From:  <'||ENVIA||'>' || crlf || 
         'Subject: '||ASUNTO || crlf || 
         'To: '||RECIBE || crlf || 
         '' || crlf || MENSAJE; 
 
  utl_smtp.helo(mail_conn, mailhost); 
  utl_smtp.mail(mail_conn, ENVIA);  
  utl_smtp.rcpt(mail_conn, RECIBE); 
  utl_smtp.data(mail_conn, mesg);   
  utl_smtp.quit(mail_conn);         
END; 
END;

luego en el sql escribes

Código:

SQL> execute immediate ('[email protected]','[email protected]','encabezado','cuerpo del documento','algo.com');

sustituye algo.com por el nombre del servicio que tienes