SQL Server Forums
Profile | Register | Active Topics | Members | Search | Forum FAQ
 
Register Now and get your question answered!
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 General SQL Server Forums
 New to SQL Server Programming
 SQL stored procedure send emails(message when ther
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

braybray
Starting Member

1 Posts

Posted - 08/22/2013 :  17:05:29  Show Profile  Reply with Quote
I am writing a procedure in oracle sql that sends email to clients reminding them of certain important information. Right now I have the correct procedure and the email can be sent successfully. I am just wondering how I can create a message instead of an empty result table if I have nothing to display say there are none events assgined with person " to be determined".(but i want to keep the loop still so when there is data it will display)

I tried the if statment and count the result but it keeps giving me errors when compile the code. I cant have any condition such as if cnt=0 then....in the middle of for statement and the loop.

here is my code:

CREATE OR REPLACE
PROCEDURE DOM.TEST_SCHED_EMAIL(
p_month DATE)
IS
conn utl_smtp.connection;
v_message VARCHAR2(12000);
v_log VARCHAR2(500);
email_id NUMBER;
rec_person_id NUMBER;
email VARCHAR2(100);
full_name VARCHAR2(100);
CURSOR recipients_cursor
IS
SELECT DISTINCT p.person_id,
email_address,
p.fname
||' '
||p.lname AS full_name
FROM per.person p
WHERE person_id =67786895;
BEGIN
-- dbms_output.enable (50000);
OPEN recipients_cursor;
LOOP
FETCH recipients_cursor
INTO rec_person_id,
email,
full_name;
EXIT
WHEN recipients_cursor%NOTFOUND;
BEGIN
v_message := '<HTML><BODY>';
v_message := v_message ||'There are one or more event with person assigned as To Be Determined. These events are under 90 days of its scheduled date. Please take appropriate action for the events listed below'||'.';
v_message := v_message ||'<table>';
v_message := v_message ||'<br><br>';
v_message := v_message ||'<b>'||'EVENTS WITH ASSIGNED PERSON: TO BE DETERMINED'||'</b><br>';
v_message := v_message ||'<table border="1">';
v_message := v_message ||'<tr><td width="100">'||'Lname'||'</td><td width="100">'||'Fname'||'</td><td width="250">'||'Event Date'||'</td><td width="100">'||'Event Name'||'</td></td><td width="100">'||'Meridian'||'</td></tr>';
FOR cur_rec IN
(SELECT a.fname,
a.lname,
b.event_date,
b.event_name,
b.meridian
FROM cal.appt_person_event_statustype b
JOIN per.person a
ON a.person_id=b.person_id
WHERE upper(a.lname) LIKE '%TO BE%'
AND b.event_date >= sysdate
AND b.event_date <= sysdate+90
)
LOOP
v_message := v_message||'<tr border="1"><td width="100">'||cur_rec.lname||'</td><td width="100">'||cur_rec.fname||'</td><td width="250">'||cur_rec.event_date||'</td><td width="100">'||cur_rec.event_name||'</td><td width="100">'||cur_rec.meridian||'</td></tr>';
END LOOP;
v_message := v_message ||'</table>';
v_message := v_message ||'<br><br>';
v_message := v_message||'</BODY></HTML>';
conn := per.mail.begin_mail( sender_email => '2222@uiowa.edu', sender_name => 'jia', recip_email => email, recip_name => full_name, subject => 'Moonlighting/Outreach Verification for '||TO_CHAR(p_month, 'MM/YYYY'), mime_type => per.mail.MULTIPART_MIME_TYPE);
v_message := REPLACE(v_message,'!','');
per.mail.attach_text( conn => conn, data => v_message, mime_type => 'text/HTML');
per.mail.end_mail( conn => conn );
EXCEPTION
WHEN OTHERS THEN
per.mail.mail('2222@uiowa.edu', 'Moonlighting Notify', '2222@uiowa.edu', 'IntMed-OracleHelp', 'Moonlighting Notification Error', 'rec_person_id='||rec_person_id||utl_tcp.CRLF ||'Email:'||email||utl_tcp.CRLF ||'Name:'||full_name||utl_tcp.CRLF ||'Error Code:'||SQLCODE);
END;
END LOOP;
END;


Any ideas guys? Thanks in advance

bandi
Flowing Fount of Yak Knowledge

India
2208 Posts

Posted - 08/23/2013 :  00:20:26  Show Profile  Reply with Quote
Hi,
This is SQL Server forums.. You might get quick responses by posting dbforums.com

--
Chandu
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
SQL Server Forums © 2000-2009 SQLTeam Publishing, LLC Go To Top Of Page
This page was generated in 0.33 seconds. Powered By: Snitz Forums 2000