Bonjour,

Je suis entrain de créer une procedure stockée qui envoie un mail.

J'ai un message d'erreur dans mon code : Erreur 554 - Relay Access Denied

----------------------------------------------------------------

Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ;
--------------------------------------------------------------------

Question : avez vous une idée par rapport à mon soucis

Merci d'avance