Envoi de plusieurs emails via SAS

Bonjour,

Désolé, mais je n'ai pas trouvé comment le mettre en fenêtre de code.

%macro Genere_Fic ;
*-----------------------------------------------------------------*
* Chargement des destinataires en variable indicée pour la boucle *
*-----------------------------------------------------------------* ;
data _null_ ;
set DelRe0 ;
call symput(compress("Code" !!_N_),compress(cddel,' ')) ;
call symput(compress("Mail" !!_N_),compress(maildel,' ')) ;
call symput("nb_del",_N_) ;
run ;

%do i=1 %to &nb_del ;
/* Génération du fichier à envoyer */
/* Stockage en fichier local par proc import ou autre */

*---------------*
* Envoi du mail *
*---------------* ;
filename reports email "yourmail@ccm.fr";
data _null_ ;
file reports;
put '!EM_TO!' "&&mail&i." ;
put '!EM_SUBJECT! tapez l objet du mail';

put '!EM_ATTACH!' "nomdufichier.xxx" ;

put 'Bonjour,';
put ' ' ;
put "Veuillez trouver..." ;

put '!EM_SEND!';
put '!EM_NEWMSG!';
put '!EM_ABORT!';
run;
%end ;
%mend ;
%genere_fic ;