PROCEDURE SEND(p_mail_host    IN VARCHAR2,
                       p_sender       IN VARCHAR2,
                       p_recp_email   IN VARCHAR2,
                       p_cc_email     IN VARCHAR2,
                       p_subj         IN VARCHAR2,
                       p_message      IN VARCHAR2,
                       send_msg_status  OUT VARCHAR2)
IS
        v_error_text    VARCHAR2(2000);
        n_start         PLS_INTEGER;
        n_end           PLS_INTEGER;
        v_address       VARCHAR2(200);
        p_delim         VARCHAR2(2) := ';';

    conn_rec    UTL_SMTP.Connection;


   PROCEDURE write_data(p_Conn_rec  IN OUT UTL_SMTP.Connection,
                        pv_Text     IN     VARCHAR2)
   IS
   BEGIN
       utl_smtp.write_data(p_Conn_rec, pv_Text || UTL_TCP.CRLF);
   END Write_Data;

BEGIN

      -- Open the SMTP connection.
      Conn_rec := utl_smtp.open_connection(p_mail_host, 25);

      -- Set SMTP server, sender, and recipient(2).

     utl_smtp.helo(Conn_rec, p_mail_host);
     utl_smtp.mail(Conn_rec, p_sender);
     utl_smtp.rcpt(Conn_rec, p_recp_email);

     IF p_recp_email IS NOT NULL THEN
       n_start := 1;
       LOOP
          -- Find next delimiter.
          n_end   := INSTR(p_recp_email||p_delim,p_delim, n_start+1);
          EXIT WHEN n_end = 0;
          -- Extract the next email address.
          v_address := SUBSTR(p_recp_email||p_delim, n_start, n_end-n_start);
          v_address := LTRIM(v_address,p_delim);        -- Strip possible leading delimiters.
          v_address := LTRIM(RTRIM(v_address));         -- Strip spaces.

          -- Set SMTP recipient.
          utl_smtp.rcpt(Conn_rec, v_address);

          n_start := n_end + 1;
       END LOOP;

   END IF;

    IF p_cc_email IS NOT NULL THEN
       n_start := 1;
       LOOP
          -- Find next delimiter.
          n_end   := INSTR(p_cc_email||p_delim,p_delim, n_start+1);
          EXIT WHEN n_end = 0;
          -- Extract the next email address.
          v_address := SUBSTR(p_cc_email||p_delim, n_start, n_end-n_start);
          v_address := LTRIM(v_address,p_delim);        -- Strip possible leading delimiters.
          v_address := LTRIM(RTRIM(v_address));         -- Strip spaces.

          -- Set SMTP recipient.
          utl_smtp.rcpt(Conn_rec, v_address);

          n_start := n_end + 1;
       END LOOP;
    END IF;

     utl_smtp.open_data(Conn_rec);

     utl_smtp.write_data(conn_rec, 'From' || ': ' || p_sender || utl_tcp.CRLF);
     utl_smtp.write_data(conn_rec, 'To' || ': ' || p_recp_email || utl_tcp.CRLF);

      IF p_cc_email IS NOT NULL
      THEN
         Write_Data(Conn_rec, 'Cc: ' || p_cc_email);
      END IF;

     utl_smtp.write_data(conn_rec, 'Subject' || ': ' || p_subj || utl_tcp.CRLF);
     utl_smtp.write_data(conn_rec,'content-type: text/html; charset=us-ascii');
     utl_smtp.write_data(conn_rec, utl_tcp.CRLF || p_message);
     utl_smtp.close_data(Conn_rec);
     utl_smtp.quit(Conn_rec);

     send_msg_status := 'PASS';

EXCEPTION
   when others then
        send_msg_status := 'FAIL';
        v_error_text := SQLERRM;
        dbms_output.put_line(v_error_text);
--        LOG_ERRORS(null,v_error_text,null,null,null,sysdate);

END;

ORA-29279: SMTP permanent error: 501 #5.5.2 syntax error