Sending mail from DB - receiving empty mail

Question

Guys - Hope you doin well -
I have a problem - i am sending mail from my db - i am using oracle 9i -
the mail successfully sent to the receipent but with out any message - Below is the code that i am using to send mail -
please help -
create or replace package email is
procedure send_mail(pi_frmadd in varchar2,
pi_tooadd in varchar2,
pi_subjct in varchar2,
pi_msg in varchar2,
pio_status in out nocopy varchar2);
end email;
show err
create or replace package body email is
g_maicon utl_smtp.connection;     
procedure open_mail_server(pio_status in out nocopy varchar2) is
l_maihst varchar2(100) := 'localhost';
-- mail server IP address/name, instead of hardcoding this can be made a system parameter.
begin
pio_status := 'OK';
g_maicon := utl_smtp.open_connection(l_maihst);
utl_smtp.helo(g_maicon, l_maihst); -- perform initial handshake.
exception
when others then
pio_status := substr(sqlerrm, 1, 200);
end open_mail_server;
procedure close_mail_server(pio_status in out nocopy varchar2) is
begin
pio_status := 'OK';
utl_smtp.quit(g_maicon);
exception
when others then
pio_status := substr(sqlerrm, 1, 200);
end close_mail_server;
procedure send_mail(pi_frmadd in varchar2,
pi_tooadd in varchar2,
pi_subjct in varchar2,
pi_msg in varchar2,
pio_status in out nocopy varchar2) is
errexc exception;
begin
--< open connection >--
pio_status := 'OK';
open_mail_server(pio_status);
if pio_status != 'OK' then
raise errexc;
end if;
--< assign from and to >--
utl_smtp.mail(g_maicon, pi_frmadd);
utl_smtp.rcpt(g_maicon, pi_tooadd);
--< create message text >--
utl_smtp.open_data(g_maicon);
utl_smtp.write_data(g_maicon, 'From: "' || pi_frmadd || '"<'
|| pi_frmadd || '>' || utl_tcp.crlf);
utl_smtp.write_data(g_maicon, 'To: "' || pi_tooadd || '"<'
|| pi_tooadd || '>' || utl_tcp.crlf);
utl_smtp.write_data(g_maicon, 'Subject: ' || pi_subjct || utl_tcp.crlf);
utl_smtp.write_data(g_maicon, pi_msg);
utl_smtp.close_data(g_maicon);
--< close connection >--
close_mail_server(pio_status);
exception
when errexc then
return;
when others then
pio_status := substr(sqlerrm, 1, 200);
end send_mail;
end email;
show err
--Cut-paste the below code and execute it to send email from Oracle.
--Specify the receipent e-mail ids.
set serverout on size 1000000
declare
l_frmadd varchar2(100) := '[email protected]';
l_tooadd varchar2(100) := '[email protected]';
l_subjct varchar2(100) := 'Cool Oracle mail';
l_msg varchar2(500) := 'You have received this mail from the database server BINGO!!' ||
utl_tcp.crlf || 'Checking if the content is acceptable!!!' ;
l_status varchar2(200);
begin
email.send_mail(l_frmadd, l_tooadd, l_subjct, l_msg, l_status);
dbms_output.put_line(l_status);
end;
Your earlier replys would be highly appreciated - because this is some sort of an urgent request and i can't figure it out what is the problem - please consider ..
YV.

Answer 1

Vohra,
Take a look at this AskTom thread -
http://asktom.oracle.com/pls/ask/f?p=4950:8:17145199247327995192::NO::F4950_P8_DISPLAYID,F4950_P8_CRITERIA:255615160805
It details how to use the utl_smtp package to send emails.
I have to ask however, since you're not doing anything 'fancy' like adding email attachments, why aren't you using the (much simpler) htmldb_mail package to send email?