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