Simple Mail Message

CREATE OR REPLACE PROCEDURE SimpleTextMessage IS
mailHOST VARCHAR2(64) := 'mail.yourmailserver.com';
mailFROM VARCHAR2(64);
mailTO VARCHAR2(64);
mailCONN utl_smtp.connection;
mailDATE VARCHAR2(20);
vreply utl_smtp.reply;
vreplies utl_smtp.replies;
i number;

c utl_smtp.connection;

BEGIN
mailFROM := 'you@mail.yourmailserver.com';
mailTO := 'freemail@yahoo.com';
mailDATE := TO_CHAR(SYSDATE,'MM/DD/YYYY HH24:MI:SS');

mailCONN := utl_smtp.open_connection(mailHOST);

utl_smtp.ehlo(mailCONN, mailHOST);
utl_smtp.mail(mailCONN, mailFROM);
utl_smtp.rcpt(mailCONN, mailTO);
utl_smtp.open_data(mailCONN);

utl_smtp.write_data(mailCONN, 'Subject: '|| 'CR EOD Notification' || chr(13)|| chr(10));
utl_smtp.write_data(mailCONN, 'Hello Friend.' || chr(13)|| chr(10));
utl_smtp.write_data(mailCONN, 'Drop me an e-mail.' || chr(13));

utl_smtp.close_data(mailCONN);
utl_smtp.quit(mailCONN);
END;
/