Ayuda con UTL_SMTP

[jc3000]

Este es el pl que utilizo yo, es funcional 100x100 y rula muy bien.

Código HTML:

PROCEDURE     ENVIAR_MAIL
( PARA      IN VARCHAR2 default '[email protected]' ,
  ASUNTO    IN VARCHAR2 DEFAULT 'Hola, que tal' , 
  P_MENSAJE IN VARCHAR2 default 'Te invito a cenar')

IS 

c utl_smtp.connection;
 
  PROCEDURE send_header(name IN VARCHAR2, header IN VARCHAR2) AS
  BEGIN
    utl_smtp.write_data(c, name || ': ' || header || utl_tcp.CRLF);
  END;
 
BEGIN
  c := utl_smtp.open_connection('SERVIDOR SMTP');
  utl_smtp.helo(c, 'NOMBRE DEL SERVIDOR SMTP');
  utl_smtp.mail(c, 'REMITENTE');


  utl_smtp.rcpt(c, para);
  utl_smtp.open_data(c);
  send_header('Subject', Asunto);
  utl_smtp.write_data(c, utl_tcp.CRLF || P_MENSAJE );

  utl_smtp.close_data(c);
  utl_smtp.quit(c);
END;