Leandro,
Entendi seu problema e montei uma query que vai receber as tabelas "email" e "produto" conforme você criou no início deste tópico. Elas poderão conter o número de setores / produtos / e-mails que forem, mas o SAS se encarregará de fazer os disparos pra cada uma das combinações. Segue:
/*************************************************************************/
/*Cria contagem de e-mails a serem disparados*/
data work.email_enviar;
retain INDEX;
set work.email;
INDEX = _N_;
run;
/*************************************************************************/
/*Conta quantos e-mails serão disparados*/
proc sql noprint;
select max(INDEX)
into :MAX
from work.email_enviar;
quit;
/*************************************************************************/
/*Macro que irá disparar os e-mails*/
%macro email;
/*Looping*/
%do I = 1 %to &MAX.;
/*Seleciona e-mail da vez*/
data work.email_da_vez;
set work.email_enviar (where=(INDEX=&I.));
call symput('NOME',strip(NOME));
call symput('SETOR',strip(SETOR));
call symput('EMAIL',strip(EMAIL));
run;
/*Busca produtos de seu setor*/
proc sql;
create table work.email_da_vez as select
tb1.*, tb2.*
from work.email_da_vez as tb1
left join work.produto as tb2
on tb1.SETOR = tb2.SETOR;
quit;
/*Disparo do e-mail*/
filename mailbox email;
title " ";
filename output email
subject = "Produtos no almoxerifado"
sender = 'Leandro Vasconc'
replyto = 'leandro.vasconc@empresa.com.br'
from = ('Leandro Vasconc <leandro.vasconc@empresa.com.br>')
to = ("&EMAIL.")
type = 'text/html'
CT = 'text/html';
ods html body = output
style=htmlblue;
ods escapechar='^';
ods text = "^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Prezado(a) &NOME.,";
ods text = " ";
ods text = "^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Seguem dados referentes ao setor &SETOR.:";
ods text = " ";
ods text = " ";
proc print
data = work.email_da_vez (keep=PRODUTO VALOR) noobs style(header)={just=c foreground=black font_size=3} style(table)={just=c width=50%} label;
run;
ods text = " ";
ods text = "^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Atenciosamente,";
ods text = " ";
ods text = "^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Almoxerifado";
ods html close;
%end;
%mend email;
%email;
