Reg : Sending mails from PL/SQL

Question

Hello,
I've written the following code for sending mails from PL/SQL.
But the application gets hanged during compilation itself. Could
any of u please tell me why it's happening and what is wrong in
this and suggest me how to do it ??????
CREATE OR REPLACE PROCEDURE SEND_MAIL
IS
msg_from varchar2(50) := '[email protected]';
msg_to varchar2(50) := '[email protected]';
msg_subject varchar2(100) := 'E-Mail message from your database';
msg_text varchar2(1000) := '';
c utl_tcp.connection;
rc integer;
BEGIN
c := utl_tcp.open_connection('172.16.48.1', 80); -- open the
SMTP
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'HELO localhost');
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'MAIL FROM: '||msg_from);
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'RCPT TO: '||msg_to);
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'DATA'); -- Start message body
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'Subject: '||msg_subject);
rc := utl_tcp.write_line(c, '');
rc := utl_tcp.write_line(c, msg_text);
rc := utl_tcp.write_line(c, '.'); -- End of message body
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
rc := utl_tcp.write_line(c, 'QUIT');
dbms_output.put_line(utl_tcp.get_line(c, TRUE));
utl_tcp.close_connection(c); -- Close the connection
EXCEPTION
when others then
raise_application_error(-20000,'Unable to send e-mail message
from pl/sql');
END;
Awaiting for ur reply,
Thanks in Advance...
Srinivas

Answer 1

FUNCTION Send_Mail ( sender IN VARCHAR2
     , recipient IN VARCHAR2
     , subject IN VARCHAR2
     , message IN VARCHAR2)
     RETURN BOOLEAN IS
     lv_mailhost VARCHAR2(30) := 'mailserver';
     l_mail_conn utl_smtp.connection;
     lv_crlf VARCHAR2(2):= CHR( 13 ) || CHR( 10 );
BEGIN
     l_mail_conn := utl_smtp.open_connection ( lv_mailhost
          , 25);
     utl_smtp.helo ( l_mail_conn
                    , lv_mailhost);
     utl_smtp.mail ( l_mail_conn
                    , sender);
     utl_smtp.rcpt ( l_mail_conn
                    , recipient);
     utl_smtp.open_data (l_mail_conn);
     utl_smtp.write_data ( l_mail_conn
                              , 'From: '
                              || sender
                              || lv_crlf);
     utl_smtp.write_data ( l_mail_conn
                              , 'To: '
                              || recipient
                              || lv_crlf);
     utl_smtp.write_raw_data ( l_mail_conn
utl_raw.cast_to_raw ( 'Subject:'
                    || subject
                    || lv_crlf));
     utl_smtp.write_raw_data ( l_mail_conn
utl_raw.cast_to_raw ( lv_crlf
                    || message));
utl_smtp.close_data(l_mail_conn);
     utl_smtp.quit(l_mail_conn);
     RETURN TRUE;
EXCEPTION
     WHEN OTHERS
     THEN
          RETURN FALSE;
END;