Sending E-Mail to all entries in a report.

Question

Hello,
I am looking for a way to send an e-mail to all staff stored in a report based on whether they have completed their time sheet for this week or not. The e-mail will be sent to only those people that have not submitted the time sheet as a reminder.
Any help would be appreciated, thank you.

Answer 1

Hi,
DECLARE
    v_From      VARCHAR2(80) := 'Your.Worst.Nightmare;  
    v_Subject   VARCHAR2(80) := 'Time sheet due';
    v_Mail_Host VARCHAR2(30) := 'smtp.MAILHOST.com';
    v_Mail_Conn utl_smtp.Connection;
    crlf        VARCHAR2(2)  := chr(13)||chr(10);
    -- Read emails from table
    cursor emails is select email from tbl_emp where timesheet = "N";       
BEGIN  
    -- Sends the email to all listed
    for email in emails loop
    v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
    utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
    utl_smtp.Mail(v_Mail_Conn, v_From);
    utl_smtp.Rcpt(v_Mail_Conn, email.email);  
    utl_smtp.Data(v_Mail_Conn,
       'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
       'From: '   || v_From || crlf ||
       'Subject: '|| v_Subject || crlf ||
       'To: '     || email.email || crlf ||
       crlf ||
       'Hi,
Submit your time sheet noob.'|| crlf ||     -- Message body       
KR,
Joe Bloggs,
UT2004 & QuakeLive player');
     utl_smtp.Quit(v_mail_conn);
     end loop;
EXCEPTION
     WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
        raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;
/Alter your query so that it lists those who didn't submit their timesheets & whatever message you want appearing. You need their email storing somewhere.
You put this PL/SQL into a PL/SQL region and give it a conditional display e.g. clicking a "timesheet overdue" button.
Mike