| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 
 |  
CREATE OR REPLACE PROCEDURE send_mail(message VARCHAR2) 
IS
 
Fichier_mail UTL_FILE.FILE_TYPE;
 
    BEGIN
 
      Fichier_mail := UTL_FILE.FOPEN('c:\Temp','Mail.txt','w');
      UTL_FILE.PUT_LINE(Fichier_mail, message);
      UTL_FILE.FFLUSH(Fichier_mail);
      UTL_FILE.FCLOSE(Fichier_mail);
 
    EXCEPTION
      -- traitement des erreurs rencontrees
      WHEN NO_DATA_FOUND THEN
          DBMS_OUTPUT.PUT_LINE ('Pas de donnée trouvée.');
          UTL_FILE.FCLOSE(Fichier_mail);
      WHEN UTL_FILE.INVALID_PATH THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.INVALID_PATH invalide.');
          UTL_FILE.FCLOSE(Fichier_mail);
      WHEN UTL_FILE.READ_ERROR THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.READ_ERROR invlide.');
          UTL_FILE.FCLOSE(Fichier_mail);
      WHEN UTL_FILE.WRITE_ERROR THEN 
          DBMS_OUTPUT.PUT_LINE ('UTL_FILE.WRITE_ERROR invalide.');
          UTL_FILE.FCLOSE(Fichier_mail);
      WHEN OTHERS THEN 
          DBMS_OUTPUT.PUT_LINE ('Autre erreur.');
          UTL_FILE.FCLOSE(Fichier_mail);
    END; -- fin de la procedure |