enviar e-mails com seleções de lista diferentes

[Anonymous]

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

[nicolett_yuri · Accepted solution]

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

[Anonymous]

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

[nicolett_yuri]

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