CREATE OR REPLACE PROCEDURE p_send_mail (
  p_to        IN VARCHAR2,
  p_from      IN VARCHAR2,
  p_message   IN VARCHAR2,
  p_smtp_host IN VARCHAR2,
  p_smtp_port IN NUMBER DEFAULT 25
) AS
  l_mail_conn   UTL_SMTP.connection;
BEGIN
  l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port);
  UTL_SMTP.helo(l_mail_conn, p_smtp_host);
  UTL_SMTP.mail(l_mail_conn, p_from);
  UTL_SMTP.rcpt(l_mail_conn, p_to);
  UTL_SMTP.open_data(l_mail_conn);
  UTL_SMTP.write_data(l_mail_conn, p_message || UTL_TCP.crlf || UTL_TCP.crlf);
  UTL_SMTP.close_data(L_MAIL_CONN);
  UTL_SMTP.quit(l_mail_conn);
END;