p_to            varchar2(250);
  p_from          varchar2(250):='email_address';
  p_subject       varchar2(250):='...vienotā...';
  P_smtp_hostname varchar2(255) := 'IP';
  P_smtp_portnum  varchar2(5) := '25';
  p_text          varchar2(32767);
  p_html          varchar2(32767);
  l_boundary      varchar2(255) default 'a1b2c3d4e3f2g1';
  l_connection    utl_smtp.connection;
  l_body_html     clob := empty_clob;
  l_offset        number;
  l_ammount       number;
  l_temp          varchar2(32767);


l_connection := utl_smtp.open_connection(p_smtp_hostname, p_smtp_portnum);
utl_smtp.helo(l_connection, p_smtp_hostname);
utl_smtp.mail(l_connection, p_from);
utl_smtp.rcpt(l_connection, p_to);

l_temp := l_temp || 'MIME-Version: 1.0' ||  chr(13) || chr(10);
l_temp := l_temp || 'To: ' || p_to || chr(13) || chr(10);
l_temp := l_temp || 'From: ' || p_from || chr(13) || chr(10);
l_temp := l_temp || 'Subject: ' || p_subject || chr(13) || chr(10);
l_temp := l_temp || 'Reply-To: ' || p_from || chr(13) || chr(10);
l_temp := l_temp || 'Content-Type: multipart/alternative; boundary=' || chr(34) || 
l_boundary ||  chr(34) || chr(13) || chr(10);

dbms_lob.createtemporary(l_body_html, false, 10);
dbms_lob.write(l_body_html,length(l_temp),1,l_temp);

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

l_offset := dbms_lob.getlength(l_body_html) + 1;
            dbms_lob.write(l_body_html,length(p_text),l_offset,p_text);

l_temp := chr(13)||chr(10)||chr(13)||chr(10)||'--' || l_boundary || chr(13) || chr(10);
l_temp := l_temp || 'content-type: text/html; charset=utf-8' || 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);

l_temp   := chr(13) || chr(10) || '--' ||  l_boundary || '--' || chr(13);
l_offset := dbms_lob.getlength(l_body_html) + 1;
            dbms_lob.write(l_body_html,length(l_temp),l_offset,l_temp);
            
l_offset  := 1;
l_ammount := 1900;
utl_smtp.open_data(l_connection);
while l_offset < dbms_lob.getlength(l_body_html) loop
    utl_smtp.write_data(l_connection,        dbms_lob.substr(l_body_html,l_ammount,l_offset));
    l_offset  := l_offset + l_ammount ;
    l_ammount := least(1900,dbms_lob.getlength(l_body_html) - l_ammount);
end loop;
utl_smtp.close_data(l_connection);
utl_smtp.quit(l_connection);
dbms_lob.freetemporary(l_body_html);

Error(516,13): PLS-00201: identifier 'UTL_MAIL.SEND' must be declared

BEGIN
................
  UTL_MAIL.send(sender => p_from,
                recipients => p_to,
                subject => p_subject,
                message => p_text,
                mime_type => 'text; charset=utf-8');
................
END;

utl_mail.send(sender => p_from, recipients => p_to, subject => p_subject, message => p_text, 
mime_type => 'text; charset=utf-8');