send mail proceedure

set serveroutput on;

DECLARE
   -- Configure these variables
   v_mail_host           VARCHAR2(30) := '<smtp_server_domian>';
   v_mail_port           NUMBER := 25;
   v_to                  VARCHAR2(80) := '<your_sending_mail.id>';
   -- Do not touch
   v_from                VARCHAR2(80);
   v_subj                VARCHAR2( 100) := 'test subj ' || TO_CHAR( SYSDATE, 'YYYY-MM-DD HH24:MI:SS');
   v_msg                 VARCHAR2( 100) := 'test msg';
   v_mail_conn           utl_smtp.connection;
   crlf                  VARCHAR2(2) := CHR(13) || CHR(10);
BEGIN
   -- Set from with dbname
   SELECT 'noreply@' || LOWER( GLOBAL_NAME)
     INTO v_from
     FROM GLOBAL_NAME;
   -- Send email
   v_mail_conn := utl_smtp.open_connection( v_mail_host, v_mail_port);
   utl_smtp.helo( v_mail_conn, v_mail_host);
   utl_smtp.mail( v_mail_conn, v_from);
   utl_smtp.rcpt( v_mail_conn, v_to);
   utl_smtp.data( v_mail_conn,
                  'Date: ' || TO_CHAR(SYSDATE, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
                  'From: ' || v_from || crlf ||
                  'Subject: ' || v_subj || crlf ||
                  'To: ' || v_to || crlf ||
                  crlf ||
                  v_msg || crlf);
   utl_smtp.quit( v_mail_conn);
END;
/