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"
