gvilella22

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About gvilella22

  1. Bom dia, estou com um problema e não consigo resolver, já tentei de tudo. Bom, envio emails uma vez por semana, posso ter de 3 a 160 correspondentes. eu criei a query porem não consigo anexar a ela o corpo de email. alguém pode me ajudar? segue codigo. estou enviando o referente a um cliente, eu só replico o código varias vezes. ActiveSheet.Range("$A$1:$M$1694").AutoFilter Field:=10, Criteria1:= _ "LJ_BA_SALVADOR_AEROPORTO" Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range("A1:M1700").Select Selection.Copy ChDir "C:\Users\rodolfo.ribas\Desktop\Testes_Email" Workbooks.Open Filename:= _ "C:\Users\rodolfo.ribas\Desktop\Testes_Email\LJ_BA_SALVADOR_AEROPORTO.xlsm"