1 2 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 |
Partager