vba ANEXAR CORPO DE EMAIL

[gvilella22]

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"