Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Olá,
Tenho um indicador e a partir dele preciso gerar um envio de e-mail, porém preciso fazer 3 envios, cada um selecionando um "status".
(e-mail separados enviando dados de Funilaria , Polimento, Programado Troca)
Há alguma maneira, talvez na macro de envio de e-mail (estou usando o método em anexo para o envio por email) de automatizar o envio, sem que eu necessite escolher o tipo e depois enviar um por um?
Atenciosamente,
Erick
Erick, basta colocar o conteúdo desse campo dentro de um array e fazer um for, segue um exemplo:
x = ActiveDocument.Evaluate("concat(DISTINCT chr(34) & CAMPO & chr(34), ',')")
dir = Eval("Array(" + x + ")")
for i = 0 to UBound(dir)
ActiveDocument.Fields("CAMPO").Select dir(i) 'Seleciona o campo
'Aqui basta chamar a sua macro para fazer o envio do relatório por email
next
Erick, basta colocar o conteúdo desse campo dentro de um array e fazer um for, segue um exemplo:
x = ActiveDocument.Evaluate("concat(DISTINCT chr(34) & CAMPO & chr(34), ',')")
dir = Eval("Array(" + x + ")")
for i = 0 to UBound(dir)
ActiveDocument.Fields("CAMPO").Select dir(i) 'Seleciona o campo
'Aqui basta chamar a sua macro para fazer o envio do relatório por email
next
Yuri, quando coloquei o código realmente recebi os vários e-mails.
O campo possui 7 estados possíveis, e foi enviado 7 e-mails diferentes, porém todos sem a "seleção" do estado travada.
Pois mesmo que eu selecionar o estado e enviar o e-mail, é enviado um sem seleção, para enviar com o estado desejado eu primeiramente seleciono o estado e depois clico em Travar, assim consigo que seja enviado com o filtro funcionando.
Consigo a opção de "travar" a seleção do campo nesse código?
muito obrigado
Sim, utilize o código abaixo:
ActiveDocument.Fields("CAMPO").lock
Ficaria mais ou menos assim
x = ActiveDocument.Evaluate("concat(DISTINCT chr(34) & CAMPO & chr(34), ',')")
dir = Eval("Array(" + x + ")")
for i = 0 to UBound(dir)
ActiveDocument.Fields("CAMPO").Select dir(i) 'Seleciona o campo
ActiveDocument.Fields("CAMPO").lock
'Aqui basta chamar a sua macro para fazer o envio do relatório por email
next