CREATE OR REPLACE PROCEDURE send_mail_xyz
                                  (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
                       dbms_output.put_line('9.1'||sysdate);
   l_mail_conn := UTL_SMTP.open_connection(p_smtp_host, p_smtp_port);
 dbms_output.put_line('9.2'||sysdate);
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.data(l_mail_conn, p_message || UTL_TCP.crlf || UTL_TCP.crlf);
UTL_SMTP.quit(l_mail_conn);
END;
/



  While sending mail through send_mail_xyz


  and output is

  anonymous block completed

 9.118-02-2019 12:11:25

 9.218-02-2019 12:31:25