Couldnt able to receive for over due issues

Question

Hi all,
i have a package which will send email if the issue is on a overdue and this is it
-- Create a package to check for overdue issues
-- and send notification email to project lead.
CREATE OR REPLACE package it_check_overdue_issues
AS
    PROCEDURE email_overdue;
END;
-- Create package body.
-- Either replace the value of 'c1.person_email' in the
-- code below with valid email or make sure the data in
-- the IT_PEOPLE.PERSON_EMAIL column has valid email addresses.
CREATE OR REPLACE PACKAGE BODY it_check_overdue_issues
AS
PROCEDURE email_overdue
IS
    l_msg_body varchar2(32000) := null;
    l_count number             := 0;
BEGIN
FOR c1 IN
    (SELECT pr.project_id,
        pr.project_name,
        pe.person_name,
        pe.person_email
    FROM it_projects pr,
        it_people pe
    WHERE pr.project_id = pe.assigned_project
        AND pe.person_role = 'Lead')
    LOOP
    FOR c2 IN
        (SELECT i.target_resolution_date,
            i.issue_summary,
            p.person_name,
            i.status,
            i.priority
        FROM it_issues i,
            it_people p
        WHERE i.assigned_to_person_id = p.person_id (+)
            AND i.related_project_id = c1.project_id
            AND i.target_resolution_date < SYSDATE
            AND i.status != 'Closed'
    ORDER BY i.target_resolution_date, i.issue_summary)
LOOP
    IF l_count = 0 THEN
        l_msg_body :=
        'As of today, the following issues '||
        'are overdue:'||chr(10)||
        chr(10)||
        ' Project: '|| c1.project_name ||chr(10)||
        chr(10)||
        '     Target: '||c2.target_resolution_date ||chr(10)||
        '    Summary: '||c2.issue_summary ||chr(10)||
        ' Status:     '||c2.status ||chr(10)||
        ' Priority:   '||c2.priority ||chr(10)||
        'Assigned to: '||c2.person_name;
    ELSE
        l_msg_body := l_msg_body ||chr(10)||
        chr(10)||
        '     Target: '||c2.target_resolution_date ||chr(10)||
        '    Summary: '||c2.issue_summary ||chr(10)||
        '     Status: '||c2.status ||chr(10)||
        ' Priority:   '||c2.priority ||chr(10)||
        'Assigned to: '||c2.person_name;
    END IF;
    l_count := l_count + 1;
END LOOP;
IF l_msg_body IS NOT NULL THEN
APEX_MAIL.SEND(
   p_to => c1.person_email,
   p_from => c1.person_email,
   p_body => l_msg_body,
   p_subj => 'Overdue Issues for Project '||
                   c1.project_name);
END IF;
l_count := 0;
END LOOP;
END email_overdue;
END it_check_overdue_issues;According to the package, if the issue target resolution date is greater than the sysdate then, the email has to go to the project lead corresponding to that respective project saying that the issue is on overdue.
But im couldnt able to receive any emails, as i checked with an example of raising an overdue issue specifying the target date for that issue as 23-06-2011, so it is less than sysdate so therefore an email has to go to the project lead of that respective project.
But im not receiving any email to me, as i defined myself as a project lead for that overdue project.
What is wrong with the query or with my understanding of the above query.
Thanks
Regards.
Mini

Answer 1

Hi Robbie,
Thanks for the reply
My package is working perfectly and this is it
-- Create a package to check for overdue issues
-- and send notification email to project lead.
CREATE OR REPLACE package it_check_overdue_issues
AS
    PROCEDURE email_overdue;
END;
-- Create package body.
-- Either replace the value of 'c1.person_email' in the
-- code below with valid email or make sure the data in
-- the IT_PEOPLE.PERSON_EMAIL column has valid email addresses.
CREATE OR REPLACE PACKAGE BODY it_check_overdue_issues
AS
PROCEDURE email_overdue
IS
    l_msg_body varchar2(32000) := null;
    l_count number             := 0;
BEGIN
FOR c1 IN
    (SELECT pr.project_id,
        pr.project_name,
        pe.person_name,
        pe.person_email
    FROM it_projects pr,
        it_people pe
    WHERE pr.project_id = pe.assigned_project
        AND pe.person_role = 'Lead')
    LOOP
    FOR c2 IN
        (SELECT i.target_resolution_date,
            i.issue_summary,
            p.person_name,
            i.status,
            i.priority
        FROM it_issues i,
            it_people p
        WHERE i.assigned_to_person_id = p.person_id (+)
            AND i.related_project_id = c1.project_id
            AND i.target_resolution_date < SYSDATE
            AND i.status != 'Closed'
    ORDER BY i.target_resolution_date, i.issue_summary)
LOOP
    IF l_count = 0 THEN
        l_msg_body :=
        'As of today, the following issues '||
        'are overdue:'||chr(10)||
        chr(10)||
        ' Project: '|| c1.project_name ||chr(10)||
        chr(10)||
        '     Target: '||c2.target_resolution_date ||chr(10)||
        '    Summary: '||c2.issue_summary ||chr(10)||
        ' Status:     '||c2.status ||chr(10)||
        ' Priority:   '||c2.priority ||chr(10)||
        'Assigned to: '||c2.person_name;
    ELSE
        l_msg_body := l_msg_body ||chr(10)||
        chr(10)||
        '     Target: '||c2.target_resolution_date ||chr(10)||
        '    Summary: '||c2.issue_summary ||chr(10)||
        '     Status: '||c2.status ||chr(10)||
        ' Priority:   '||c2.priority ||chr(10)||
        'Assigned to: '||c2.person_name;
    END IF;
    l_count := l_count + 1;
END LOOP;
IF l_msg_body IS NOT NULL THEN
APEX_MAIL.SEND(
   p_to => c1.person_email,
   p_from => c1.person_email,
   p_body => l_msg_body,
   p_subj => 'Overdue Issues for Project '||
                   c1.project_name);
END IF;
l_count := 0;
END LOOP;
END email_overdue;
END it_check_overdue_issues;According to the package the email has to go to the project lead of the corresponding project saying that the 'issue is overdue'
if i compile the package
begin
it_check_overdue_issues.email_overdue;
end;means, it is compiling successfully and also im receiving mails(as to project lead)
But if i schedule to execute the package by defining time interval means, it is not working as this job is compiling successfully but im not receiving any mails from this job and this is it
DECLARE
    jobno number;
BEGIN
    DBMS_JOB.SUBMIT(
        job => jobno,
        what => 'BEGIN it_check_overdue_issues.email_overdue; END;',
        next_date => SYSDATE,
        interval => 'SYSDATE + (2/1440)');
    COMMIT;
END;
According to this job it will execute the package for every 2min. so for every 2 min ill be receiving mails. but im not receiving emails for every 2 min as this job is not working. But this job compiled without any error.
Regards,
Mini