create or replace PROCEDURE PAY_SEND_TREASURY_EMAIL_PROC as 
 begin
  for cur_r in (select empl_email, 
                       n_txt_1 DISPLAY_SUBJECT, 
                       n_txt_2 DISPLAY_MSG
        FROM      TEST_SEND_EMAIL_To_joe 
               ) loop
           
    anc_pkg.p_html_email(
                         p_to       => cur_r.empl_email 
                        ,p_from     => 'do_not_reply@nycha.nyc.gov'
                        ,p_subject  => cur_r.DISPLAY_SUBJECT
                        ,p_text     => 'IT TESTING !!!  Please complete forms ASAP, Thank you.'
                        ,p_html     =>  cur_r.DISPLAY_MSG
                  );
  end loop;
end;
/

Reply-To: do_not_reply@nycha.nyc.gov
Content-Type: multipart/alternative; boundary="a1b2c3d4e3f2g1"
--a1b2c3d4e3f2g1
content-type: text/plain; charset=us-ascii

IT TESTING !!!  Please complete forms ASAP, Thank you.

--a1b2c3d4e3f2g1
content-type: text/html;


Year--> 2019    PP--> 09    Location--> 0834    ( NextGen Ops 1 Manhattan Planning Unit )

Year--> 2019    PP--> 21    Location--> 0834    ( NextGen Ops 1 Manhattan Planning Unit )

--a1b2c3d4e3f2g1--

Content-Type: multipart/alternative; boundary="a1b2c3d4e3f2g1"
--a1b2c3d4e3f2g1
content-type: text/plain; charset=us-ascii

--a1b2c3d4e3f2g1
content-type: text/html;


--a1b2c3d4e3f2g1--

l_boundary      varchar2(255) default 'a1b2c3d4e3f2g1';

l_temp := l_temp || 'Content-Type: multipart/alternative; boundary=' ||
                         chr(34) || l_boundary ||  chr(34) || chr(13) ||
                         chr(10);

----------------------------------------------------
    -- Write the text boundary
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    l_temp   := '--' || l_boundary || chr(13)||chr(10);
    l_temp   := l_temp || 'content-type: text/plain; charset=us-ascii' ||
                  chr(13) || chr(10) || chr(13) || chr(10);
    dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);

    ----------------------------------------------------

    -- Write the HTML boundary
    l_temp   := chr(13)||chr(10)||chr(13)||chr(10)||'--' || l_boundary ||
                    chr(13) || chr(10);
    l_temp   := l_temp || 'content-type: text/html;' ||
                   chr(13) || chr(10) || chr(13) || chr(10);
    l_offset := dbms_lob.getlength(l_body_html) + 1;
    dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);