Discussion :

[olivanto]

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 :

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 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;
/

[fatsora]

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

[olivanto]

je suis malheuresement en 9i.

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

[mnitu]

Voilà quelques explications et une solution .

[olivanto]

Tout d'abord ; merci !

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

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
 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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à ?

[mnitu]

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 );