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 32 33 34 35
| CREATE OR REPLACE PROCEDURE Env_Mail AS
BEGIN
DECLARE
lv_Mailhost VARCHAR2(64) := '192.127.83.148';
lv_From VARCHAR2(64) := 'zz42@hotmail.com';
lv_Subject VARCHAR2(64) := 'Mail pour tester envoi mail';
lv_To VARCHAR2(32767) := 'zz42@hotmail.com';
lv_MailConn UTL_SMTP.connection;
lv_NbError NUMBER(10) := 0;
lv_Dest VARCHAR2(32767);
BEGIN
lv_MailConn := UTL_SMTP.open_connection(lv_Mailhost, 25);
UTL_SMTP.helo(lv_MailConn, lv_Mailhost);
UTL_SMTP.mail(lv_MailConn, lv_str_From);
WHILE INSTR(lv_To, ',') != 0 LOOP
lv_Dest := SUBSTR(lv_To, 1, INSTR(lv_To, ',') - 1);
lv_To := SUBSTR(lv_To, INSTR(lv_To, ',') + 1);
UTL_SMTP.rcpt(lv_MailConn, lv_Dest);
END LOOP;
UTL_SMTP.rcpt(lv_MailConn, lv_str_To);
UTL_SMTP.open_data(lv_MailConn);
UTL_SMTP.write_data(lv_MailConn, 'Date: ' || TO_CHAR(SYSDATE, 'DD-MN-YYYY HH24:MI:SS') || CHR(13)|| CHR(10));
UTL_SMTP.write_data(lv_MailConn, 'From: ' || lv_From || CHR(13)|| CHR(10));
UTL_SMTP.write_data(lv_MailConn, 'Objet : ' || lv_Subject || CHR(13)|| CHR(10));
UTL_SMTP.write_data(lv_MailConn, 'To: ' || lv_To || CHR(13)|| CHR(10));
UTL_SMTP.write_data(lv_MailConn, 'le corps du mail contenant de données' || CHR(13)|| CHR(10));
UTL_SMTP.write_data(lv_MailConn, ' ' || CHR(13)|| CHR(10));
UTL_SMTP.close_data(lv_MailConn);
UTL_SMTP.quit(lv_MailConn);
END;
END ; |
Partager