Macro para copiar tabela dinâmica e colar no corpo do email

[acsatiro]

Boa Tarde Galera.

Estou apanhando para criar um macro que copia uma tabela dinamica e cola no corpo do email.

alguém poderia me ajudar,

obrigado

Abraços

[rbgra2]

Deixe a aba onde esta sua tabela dinâmica selecionada.

Aperte Alt+F11 -> Inserir -> Modulo -> Cole o código abaixo -> de um clique no meio do código e aperte F5.

Sub enviar_planilha_corpo_email()

Application.ScreenUpdating = False

ActiveWorkbook.EnvelopeVisible = True
    
    With ActiveSheet.MailEnvelope
        .Item.To = "SeuEmail@email.com.br"
        .Item.Subject = "TESTE ENVIO EMAIL"
        .Item.Send
    End With

MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation

Application.ScreenUpdating = True

End Sub