How to send e-mail alert to the user job is successful or failed.

Question

Hi Experts,
I have scheduled a job using DBMS_JOB Package; in this job I am calling a procedure.
How can we send an e-mail(alert) to the user if the job is successful (or) job fails.
If the job is successfully completed, then we have to send mail as “Job is completed successfully along with job name”.
If the job fails we have to send email as “error message of the job along with job name”(why the job is failed).
This alert should be sending automatically no manual intervention.
Please help me.
     CREATE OR REPLACE PROCEDURE APPS_GLOBAL.arc_procedure (P_ID IN NUMBER)
     IS
     CURSOR C IS SELECT id,table_name,archive_table_name,where_condition
     FROM apps_global.control_ram
     WHERE id = p_id
     ORDER BY id, table_name;
     BEGIN
        FOR I IN C
        LOOP
           EXECUTE IMMEDIATE
              'INSERT INTO '
           || I.ARCHIVE_TABLE_NAME
           || '
     (SELECT * FROM '
           || I.TABLE_NAME
           || ' WHERE '
           || I.WHERE_CONDITION
           || ')';
           EXECUTE IMMEDIATE
              'DELETE FROM '
           || I.TABLE_NAME
           || ' WHERE '
           || I.WHERE_CONDITION
           || '';
           COMMIT;
        END LOOP;
     EXCEPTION
        WHEN OTHERS
        THEN
           ROLLBACK;
           DBMS_OUTPUT.PUT_LINE (
           'An error was encountered - ' || SQLCODE || ' -ERROR- ' || SQLERRM);
     END arc_procedure;
     /This is my job.
DECLARE
  X NUMBER;
BEGIN
  SYS.DBMS_JOB.SUBMIT
  ( job       => X
   ,what      => 'APPS.arc_procedure(1);'
   ,next_date => to_date('05/01/2013 00:00:00','dd/mm/yyyy hh24:mi:ss')
   ,interval  => 'TRUNC(SYSDATE+1)'
   ,no_parse  => FALSE
  SYS.DBMS_OUTPUT.PUT_LINE('Job Number is: ' || to_char(x));
COMMIT;
END;
/Thanks in advance.

Answer 1

Hi,
I think you can do by creating mailing procedures and call it in the loop and outside the loop.
There would be two procedure one in inside loop which will execute after successfull completion of the loop.
Other would be in the exception block like i shown in the below code you have written;
V_variable_1 you can use as a parameter for what is the error occured.
like suppose your mailing procedure name is Status_email and Status_email_1.
CREATE OR REPLACE PROCEDURE APPS_GLOBAL.arc_procedure (P_ID IN NUMBER)
     IS
     CURSOR C IS SELECT id,table_name,archive_table_name,where_condition
     FROM apps_global.control_ram
     WHERE id = p_id
     ORDER BY id, table_name;
V_VARIABLE_1 NUMBER;
V_VARIABLE_2 VARCHAR2(400);
     BEGIN
        FOR I IN C
        LOOP
           EXECUTE IMMEDIATE
              'INSERT INTO '
           || I.ARCHIVE_TABLE_NAME
           || '
     (SELECT * FROM '
           || I.TABLE_NAME
           || ' WHERE '
           || I.WHERE_CONDITION
           || ')';
           EXECUTE IMMEDIATE
              'DELETE FROM '
           || I.TABLE_NAME
           || ' WHERE '
           || I.WHERE_CONDITION
           || '';
           COMMIT;
                 STATUS_EMAIL;
        END LOOP;
     EXCEPTION OTHERS THEN
V_VARIABLE_1 :=SQLCODE;
V_VARIABLE_2 :=SQLERRM;
           ROLLBACK;
STATUS_EMAIL_1(V_VARIABLE_1,V_VARIABLE_2);
     END arc_procedure;
     / You can refer to sample email procedure i have created for you.
CREATE OR REPLACE PROCEDURE STATUS_EMAIL
AS
   v_From       VARCHAR2(80) := 'EMAIL_ID';
   v_Recipient  VARCHAR2(80) := 'EMAIL_ID';
--YOU CAN SEND EMAIL TO MORE THAT ONE USER SO YOU CAN USE LIKE BELOW VARIABLE....
   v_Recipienttt  VARCHAR2(80) := 'EMAIL_ID';
   v_Subject    VARCHAR2(80) := 'SUBJECT_FOR_THE_MAIL';
   v_Mail_Host  VARCHAR2(30) := 'MAIL_SERVERS_HOST_IP(SMTP_SERVER)';
   v_Mail_Conn  utl_smtp.Connection;
   crlf         VARCHAR2(2)  := chr(13)||chr(10);
BEGIN
  v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host);
  utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
  utl_smtp.Mail(v_Mail_Conn, v_From);
  utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
  utl_smtp.Rcpt(v_Mail_Conn, v_Recipienttt);
--OPEN DATA CONNNECTION
  UTL_SMTP.OPEN_DATA(v_mail_conn);
--MAIL HEADER
  utl_smtp.write_DATA(v_Mail_Conn,'Date: '   || to_char(sysdate, 'DD-MON-YYYY hh:mi:ss AM') || crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'From: '   || v_From || crlf );
  utl_smtp.write_DATA(v_Mail_Conn,'Subject: '|| v_Subject || ||crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'To: '     || v_Recipient || crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Cc: '       || v_Recipienttt ||','|| crlf);
--MAIL BODY
  utl_smtp.write_DATA(v_Mail_Conn,'MIME-Version: 1.0'|| crlf );
  utl_smtp.write_DATA(v_Mail_Conn,'Content-Type: multipart/mixed;'|| crlf );
  utl_smtp.write_DATA(v_Mail_Conn,' boundary="-----SECBOUND"'|| crlf ||crlf );
  utl_smtp.write_DATA(v_Mail_Conn,'-------SECBOUND'|| crlf );
  utl_smtp.write_DATA(v_Mail_Conn,'Content-Type: text/plain;'|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Content-Transfer_Encoding: 7bit'|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Procedure is successfully complited without error'|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Dear All, '|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Procedure is successfully complited without error'||'.' ||crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'Regards, '|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,'any_name '|| crlf);
  utl_smtp.write_DATA(v_Mail_Conn,null|| crlf);
  utl_smtp.write_data(v_Mail_Conn, utl_tcp.CRLF ||'This mail is auto generated.');
  --CLOSE CONNECTION
  UTL_SMTP.CLOSE_DATA(v_mail_conn);
  utl_smtp.Quit(v_mail_conn);
EXCEPTION
  WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
    raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;
/cheers..