SELECT and add to email output

Question

Hi guys,
I'm trying to take records from a table and place them in an email sent to myself. The basic email (without any select statement) works so the issue is in retrieving and including the table data. My code attempt is:
DECLARE
  v_From      VARCHAR2(80) := 'C3.Weekly';
  v_Recipient VARCHAR2(80) := '[email protected]';
  v_Subject   VARCHAR2(80) := 'HKADM C3 Stats Fail - ' || to_char(sysdate,'DD') || ' ' ||
        rtrim(to_char(sysdate,'Month'), ' ') || ' ' || to_char(sysdate, 'YYYY');
  v_Mail_Host VARCHAR2(30) := 'smtp.XXX.com';
  v_Mail_Conn utl_smtp.Connection;
  crlf        VARCHAR2(2)  := chr(13)||chr(10);
  db_fail VARCHAR2(4000);
BEGIN
SELECT DISTINCT TBS_SVC_NAME into db_fail
       FROM hkadm.TBSTAT
       ORDER BY 1;
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, v_Recipient);
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: '     || v_Recipient || crlf ||
   crlf ||
' The following databases failed to commit:');
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;
/I get the error "ORA-01422: exact fetch returns more than requested number of rows and ORA-06512: at line 11". I then thought that maybe I needed to do a loop over the variable but then it complained about there being a FOR :s Any help appreciated.
Mike

Answer 1

Hi Anurag,
I just tried including a cursor as you have but errors occur. The problem is that I wish to loop in the output with is part of a parameter but I don't know how to go about it. My attempt was as follows for it doesn't like the FOR being included and I assume it doesnt like the semicolon after end loop;:
DECLARE
  v_From      VARCHAR2(80) := 'C3.Weekly';
  v_Recipient VARCHAR2(80) := '[email protected]';
  v_Subject   VARCHAR2(80) := 'HKADM C3 Stats Fail - ' || to_char(sysdate,'DD') || ' ' ||
        rtrim(to_char(sysdate,'Month'), ' ') || ' ' || to_char(sysdate, 'YYYY');
  v_Mail_Host VARCHAR2(30) := 'smtp.XXX.com';
  v_Mail_Conn utl_smtp.Connection;
  crlf        VARCHAR2(2)  := chr(13)||chr(10);
  cursor c1 is SELECT DISTINCT TBS_SVC_NAME
FROM hkadm.TBSTAT
ORDER BY 1;
BEGIN
SELECT DISTINCT TBS_SVC_NAME into db_fail
       FROM hkadm.TBSTAT
       ORDER BY 1;
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, v_Recipient);
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: '     || v_Recipient || crlf ||
   crlf ||
' The following databases failed to commit:' ||
for c in c1 loop
c || '
   ' || crlf ||
end loop;
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;
/ Edit: I've done it at the start of the begin statement keeping it in a variable and it works now. Thanks
Mike
Edited by: Dird on 29-Jul-2009 01:08