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@oracle.com');
utl_smtp.rcpt (mail_conn, 'receiver@oracle.com');
MESSAGE_1 := 'From: Mr Sender < sender@oracle.com >'
|| CRLF || 'Subject: Testing Hyperlink'
|| CRLF || 'To: Mrs Receiver '
|| CRLF || ''
|| 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;