3 Replies Latest reply: Apr 30, 2015 8:52 AM by Yuri Nicolett RSS

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

    erick sakagami

      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

        • Re: enviar e-mails com seleções de lista diferentes
          Yuri Nicolett

          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

            • Re: enviar e-mails com seleções de lista diferentes
              erick sakagami

              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

                • Re: enviar e-mails com seleções de lista diferentes
                  Yuri Nicolett

                  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