Send lines returned by a query

Question

Hi,
I have this script :
SET SERVEROUT ON
DECLARE
c utl_smtp.connection;
vInHandle utl_file.file_type;
vNewLine VARCHAR2(250);
vMessage VARCHAR2(250);
I pls_integer := 0;
PROCEDURE send_header(name VARCHAR2, header VARCHAR2) AS
BEGIN
utl_smtp.write_data(c,name ||':'|| header || UTL_TCP.CRLF);
END;
BEGIN
select status into vMessage from v$instance;
DBMS_OUTPUT.ENABLE(10000);
DBMS_OUTPUT.PUT_LINE(vMessage);
utl_file.fclose(vInHandle);
-----------------------SEND A MAIL---------------------------
c := utl_smtp.open_connection('ms01xyt3.x-t-y.com',25);
utl_smtp.helo(c, 'ms01xyt3.x-t-y.com');
utl_smtp.mail(c, '[email protected]');
utl_smtp.rcpt(c, '[email protected]');
utl_smtp.open_data(c);
send_header('From', '" xyt" <[email protected]>');
send_header('To', '"Recipient" <[email protected]>');
send_header('Subject', 'DB STATUS ');
utl_smtp.write_data(c, UTL_TCP.CRLF ||vMessage);
utl_smtp.close_data(c);
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
BEGIN
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error
OR utl_smtp.permanent_error THEN
NULL;
END;
raise_application_error(-20000, SQLERRM);
END fopen;
It works well and sends vMessage in a mail.
I have another query :
Cursor C_TBS is
Select A.tablespace_name ,
     A.total_size "Taille totale Ko",
     B.Free_space "Espace disponible Ko",
((A.total_size-B.Free_space)*100/A.total_size) "% Occupied Espace "
From
          (select tablespace_name, sum(BYTES)/1024 total_size
          from dba_data_files
          group by tablespace_name) A ,
          (select tablespace_name, sum(BYTES)/1024 Free_space
          from dba_free_space
          group by tablespace_name) B
where a.tablespace_name = b.tablespace_name
AND
((A.total_size-B.Free_space)*100/A.total_size) > 80;
v_line C_TBS%rowtype;
BEGIN
DBMS_OUTPUT.ENABLE(10000);
Open C_TBS;
Loop
Fetch C_TBS into v_line;
EXIT WHEN c_TBS%NOTFOUND;
How can I send v_line in amail ?
Many thanks.

Answer 1

thank you.
SET SERVEROUT ON
DECLARE
c utl_smtp.connection;
  CURSOR C_TBS IS
    SELECT A.tablespace_name ,
           A.total_size "Taille totale Ko",
           B.Free_space "Espace disponible Ko",
           ((A.total_size-B.Free_space)*100/A.total_size) "% Occupied Espace "
    FROM (SELECT tablespace_name, sum(BYTES)/1024 total_size
          FROM   dba_data_files
          GROUP BY tablespace_name) A,
         (SELECT tablespace_name, sum(BYTES)/1024 Free_space
          FROM dba_free_space
          GROUP BY tablespace_name) B
    WHERE a.tablespace_name = b.tablespace_name
    AND   ((A.total_size-B.Free_space)*100/A.total_size) > 80;
BEGIN
  DBMS_OUTPUT.ENABLE(10000);
-----------------------SEND A MAIL---------------------------
c := utl_smtp.open_connection('ms01xyt3.xyt.com',25);
  utl_smtp.helo(c, 'ms01xyt3.xyt.com');
  utl_smtp.mail(c, '[email protected]');
  utl_smtp.rcpt(c, '[email protected]');
  utl_smtp.open_data(c);
  send_header('From', '"AK xyt" <[email protected]>');
  send_header('To', '"Recipient" <[email protected]>');
  send_header('Subject', 'STATUT DE LA BASE ORCL');
FOR v_line IN C_TBS
  Loop
    DBMS_OUTPUT.PUT_LINE('TABLESPACE_NAME is : '||v_line.tablespace_name||' '||v_line."Taille totale Ko"||' '||v_line."Espace disponible Ko");
    utl_smtp.write_data(c, UTL_TCP.CRLF ||v_line);
  End Loop;
  utl_smtp.close_data(c);
  utl_smtp.quit(c);
EXCEPTION
  WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
    BEGIN
      utl_smtp.quit(c);
    EXCEPTION
      WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
        NULL;
    END;
  WHEN OTHERS THEN
    raise_application_error(-20000, SQLERRM);
END;
/ But :
send_header('From', '"AK xyt" <[email protected]>');
RREUR Ó la ligne 25 :
RA-06550: Ligne 25, colonne 3 :
LS-00201: l'identificateur 'SEND_HEADER' must be declared RA-06550: Ligne 25, colonne 3 :
L/SQL: Statement ignored
RA-06550: Ligne 26, colonne 3 :
LS-00201: l'identificateur 'SEND_HEADER' must be declared
RA-06550: Ligne 26, colonne 3 :
L/SQL: Statement ignored
RA-06550: Ligne 27, colonne 3 :
LS-00201: l'identificateur 'SEND_HEADER' must be declared
RA-06550: Ligne 27, colonne 3 :
L/SQL: Statement ignored
RA-06550: Ligne 31, colonne 28 :
LS-00306: numÚro ou types d'arguments erronÚs dans appel Ó '||'
RA-06550: Ligne 31, colonne 5 :
L/SQL: Statement ignoredThank you.