Send Email Hangs - UTL_SMTP

Question

Hi All,
I am tryin to write a package to send email notifications, when i try to execute this package it just hangs and never sends any email. Any taughts why this is happening.
create or replace package body
pm.email_pkg
is
-- Email Package
mv_r varchar2(2) := utl_tcp.crlf;
procedure send_mail
sender in varchar2,
recipient in varchar2,
subject in varchar2 default null,
message in varchar2
is
mailhost varchar2(30) := util_pkg.f_sysinfo('SMTP');
smtpport number := util_pkg.f_sysinfo('SMTP_PORT');
mail_conn utl_smtp.connection;
begin
mail_conn := utl_smtp.open_connection(mailhost, smtpport);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
--utl_smtp.data ( mail_conn, 'Subject : '|| subject || mv_r || mv_r || message );
utl_smtp.open_data(mail_conn) ;
utl_smtp.write_data(mail_conn, 'Subject : '|| subject || mv_r || mv_r || message );
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
exception
when others then
-- handle the error
null;
end send_mail;
procedure taskemail
is
cursor c_tasks is
select t.name, t.techuser, t.projectid, p.name pname, t.assigndate, t.descr
from tasks t, projects p
where t.projectid = p.projectid
and trunc(t.created) = trunc(sysdate);
cursor c_notify (pv_user varchar2) is
select id
from notifications
where owner = pv_user
and notid = util_pkg.f_sysinfo('TASK_NOTIFY');
mv_sender varchar2(64) := util_pkg.f_sysinfo('SENDER_EMAIL');
mv_recipient varchar2(64);
mv_subject varchar2(100) ;
mv_message varchar2(4000);
begin
for i in c_tasks
loop
select email
into mv_recipient
from user_info
where user_name = i.techuser;
if mv_recipient is not null then
mv_subject := 'Assigned to:' || i.name;
mv_message := 'You have been Assign the following Task' || mv_r;
mv_message := mv_message || mv_r;
mv_message := mv_message || 'Task: ' || i.name || mv_r;
mv_message := mv_message || 'Project ' || i.pname || mv_r;
mv_message := mv_message || mv_r;
mv_message := mv_message || 'Description:' || mv_r ;
mv_message := mv_message || i.descr;
for j in c_notify(i.techuser)
loop
email_pkg.send_mail(mv_sender, mv_recipient, mv_subject, mv_message);
end loop;
end if;
end loop;
end taskemail;
procedure email_notifications
is
begin
email_pkg.taskemail;
end;
end email_pkg;
show errors

Answer 1

SQL> begin
2 email_pkg.email_notifications;
3 end;
4 /
begin
ERROR at line 1:
ORA-29531: no method get_crlf in class oracle/plsql/net/TCPConnection
ORA-06512: at "SYS.UTL_TCP", line 559
ORA-06512: at "SYS.UTL_TCP", line 552
ORA-06512: at "PM.EMAIL_PKG", line 7
ORA-06512: at line 2