Sending mail using a job and a package

Question

Dear all,
I would like to request your help in this task:
in fact I have a package p$job_sendmail used for sending emails and a job
that calls this package.
after doing an insert of a single row in a table x, for each row inserted in that table the job runs and an email is sent.
The code of the package is:
create or replace package p$job_sendmail is
g_pck           varchar2(256):='job_sendmail';
procedure lance;
procedure arret;
end;
create or replace package body p$job_sendmail is
procedure lance is
     l_error               varchar2(256);
     l_message               varchar2(4000);
     l_file               varchar2(256);
     l_rep                    varchar2(256);
     l_ret                    number;
   begin
     l_error := 'OK';
     l_message:= null;
     loop
          begin
p$msg_sendmail.lit_mess
(2,
5,
l_error,
l_message
if l_erreur != 'OK' then
     rollback;
end if;
exit when l_erreur != 'OK';
commit;
exception
when OTHERS then
rollback;
exit;
end;
end loop;
end;
procedure arret is
begin
     p$msg_sendmail.arret;
   end;
end;
The code of the job that runs for each row inserted in the table x and calls the package is:SELECT JOB,LOG_USER,WHAT FROM USER_JOBS;
prompt
accept NUM_JOB prompt ' Number of the job: '
var indice_job number;
begin
:indice_job := &NUM_JOB;
if :indice_job != 0 then
DBMS_JOB.ISUBMIT(:indice_job,'p$job_sendmail.lance;',SYSDATE);
end if;
COMMIT;
end;
The problem is that after inserting a row in the tabke x and running the job manually from pl/sql, the email is not sent
can anyone help me please?

Answer 1

http://forum.java.sun.com/thread.jsp?forum=43&thread=165268