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 36 37
| %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 "auriane.luis-manzanares@maaf.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 ; |
Partager