Send mail : plusieurs destinations

bonjour,

Un problème peut être très basique, mais que je n'arrive pas à résoudre :

La procédure suivante permet d'envoyer un mail depuis Oracle, et fonctionne très bien...excepté si je spécifie plusieurs destinations (p_dest).

Une idée ??:?

Code:

---

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 send_mail_4( p_exp IN OUT varchar2, p_dest IN OUT varchar2, p_obj IN OUT varchar2, p_msg IN OUT varchar2) IS v_cnx utl_smtp.connection; v_smtp_srv varchar2(200):= 'smtp.coucou.com'; v_port pls_integer:=25; v_msg varchar2(32000); BEGIN v_cnx:=utl_smtp.open_connection(v_smtp_srv,v_port); utl_smtp.HELO(v_cnx,v_smtp_srv); utl_smtp.MAIL(v_cnx,p_exp); utl_smtp.RCPT(v_cnx,p_dest); v_msg:= 'MIME-Version: 1.0' || utl_tcp.CRLF || 'Content-type: text/html;charset="iso-8859-15";' || 'Content-Transfer-Enconding: 8bit' || utl_tcp.CRLF || 'date:'||TO_CHAR(sysdate,'dd mon yyyy hh24:mi:ss')||utl_tcp.CRLF || 'from:'||p_exp||utl_tcp.CRLF || 'subject:'||p_obj||utl_tcp.CRLF || 'to:'||p_dest||utl_tcp.CRLF || ''||utl_tcp.CRLF || p_msg||utl_tcp.CRLF||'';   utl_smtp.DATA(v_cnx,v_msg); utl_smtp.quit(v_cnx);   EXCEPTION WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN utl_smtp.quit(v_cnx); raise_application_error(-20000,'Erreur send_mail:'||sqlerrm); END; /

---

soit tu pars d'un boucle for

soit tu peux utiliser utl_mail a partir de oracle 10G

http://download.oracle.com/docs/cd/B...l.htm#BABDEAJF

je suis malheuresement en 9i.

Mais pourquoi une boucle ? Mon champ en Varchar2 devrait pouvoir contenir plusieurs adresses, non ?

Voilà quelques explications et une solution .

Tout d'abord ; merci !

Bon, malheuresement, je ne trouve pas mon bonheur mais un début d'explication dans cette fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

8 function address_email( p_string in varchar2, 9 p_recipients in array ) return varchar2 10 is 11 l_recipients long; 12 begin 13 for i in 1 .. p_recipients.count 14 loop 15 utl_smtp.rcpt(g_mail_conn, p_recipients(i) ); 16 if ( l_recipients is null ) 17 then 18 l_recipients := p_string || p_recipients(i) ; 19 else 20 l_recipients := l_recipients || ', ' || p_recipients(i); 21 end if; 22 end loop; 23 return l_recipients; 24 end; 25 26

---

Là où Tom nous fait un tableau d'adresses, séparées par une virgule. Je connaissais cette histoire de virgule, sans suççès pourtant.
Ce qui me surprend, c'est que tout çà :

Code:

---

l_recipients := l_recipients || ', ' || p_recipients(i);

---

est renvoyé en varcha2. Comme chez moi, donc.

Du coup, on pourrait devrait pouvoir écrire (??)

Code:

---

l_recipients := adresse1@coucou.com || ', ' || adresse2@coucou.com

---

La format est donc là.

Mais pourquoi cela ne marche pas chez moi, qui utilise ce système là ?


:arf:

Citation:

---

Here is where it differs, instead of calling UTL_SMTP.RCPT once ? it uses are
address_email function to call it potentially many times, building the "To:" and "Cc:"
list for us as well. It builds the BCC list but we won?t actually send that (we don?t
want the recipients to see that list!)

55 l_to_list := address_email( 'To: ', p_to );
56 l_cc_list := address_email( 'Cc: ', p_cc );
57 l_bcc_list := address_email( 'Bcc: ', p_bcc );

---

j'ai enfin compris (je crois) ce que fait l'ami Tom...et pourquoi.

Je vais néamoins faire plus simple ; appeller plusieurs fois ma fonction send_mail....

Merci bcp de l'aide. :king: