Send e mail through PL SQL code

CREATE OR REPLACE PROCEDURE erpschools_send_email
 
IS
 
mailhost varchar2 (30) := 'smtp.erpschools.com';
 
crlf varchar2(2)Â := CHR (13) || CHR (10);
 
v_email varchar2(16000);
 
message_1 LONG;
 
mail_conn utl_smtp.connection;
 
BEGIN
 
mail_conn := utl_smtp.open_connection (mailhost, 25);
 
utl_smtp.helo (mail_conn, mailhost);
 
utl_smtp.mail (mail_conn, 'sender@erpschools.com');
 
utl_smtp.rcpt (mail_conn, 'receiver@erpschools.com');
 
message_1 := 'From: Mr Sender < sender@erpschools.com >' || crlf ||
 
'Subject: Testing Hyperlink' || crlf ||
 
'To: Mrs Receiver <Receiver@erpschools.com>' || crlf ||
 
'<a href="http://www.erpschools.com" target="new" www.erpschools.com</a>' || crlf || crlf ;
 
utl_smtp.data(mail_conn, 'MIME-Version: 1.0' ||CHR(13)||CHR(10)||'Content-type: text/html' || CHR(13)||CHR(10)||message_1);
 
utl_smtp.quit (mail_conn);
 
END;