Excel VBA Enviar e-mail direito do Excel

[4hosanaj]

 

Olá boa tarde!,

 

Eu tenho um código que faz um print da tela do excel e envia o email com os dados necessários porém, o corpo predefinido do meu email preciso que fique todo acima do print e adicionar o livro do excel como anexo do email a enviar.

 

Código usado.

Sub Partilhar_Cliente()

   Sheets("Dashboard").Select
   ActiveSheet.Range("A1:AA31").Select
   Application.CutCopyMode = False
   Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   
 Dim OutApp As Object
 Dim OutMail As Object
        
 Set OutApp = CreateObject("Outlook.Application")
 Set OutMail = OutApp.CreateItem(0)

         
 With OutMail
        .To = "[email protected];[email protected];[email protected];[email protected]"
        .Cc = "[email protected]"
        .Subject = "Dashboard Dashboard _ Inactivos testes.zip_ Inactivos"
        .Body = "Boa tarde Estimados," & _
        vbLf & "Segue abaixo o link de acesso ao Dashboard com os resultados das chamadas realizadas até ao dia " & Format(Now, "d"" de ""mmmm"" """) & _
        vbLf & "" & _
        vbLf & "https://onedrive.live.com/?authkey=%21AC8K77-ezzoVrZ0&id=D208CDABF374565E%21160&cid=D208CDABF374565E"

    
     .Display
End With
SendKeys "{END}", True
SendKeys "{ENTER}", True
SendKeys "^v", True
SendKeys "{ENTER}", True

ActiveSheet.Range("A1").Select

End Sub
 

Planilha em anexo.

Dashboard _ Inactivos testes.zip