Excel anexar corpo e-mail 4 dahsboard - excel

[Tim Baster]

Olá, 

Eu consegui esse código abaixo, onde ele gerar o e-mail do DAHSBOARD da planilha atual, como e onde modifico o codigo para gerar um único e-mail colando corpo (outlook) os 4 DASHBOARD QUE EU TENHO na minha planilha? 

Segue as imagens para facilitar. 

Option Explicit

Private Sub btEmail_Click()

Dim WH      As Worksheet

Dim OutProg As Object
Dim OutMail As Object
Dim OutApp  As Object

Set WH = Planilha1
Set OutProg = CreateObject("Outlook.Application")
Set OutMail = OutProg.CreateItem(0)

Application.ScreenUpdating = False

WH.Select

Application.ScreenUpdating = True

Application.DisplayAlerts = False

With OutMail
    .Display
    .To = WH.Range("AV4") 'Para
    .Subject = WH.Range("AV9") ' Assunto
    .Body = WH.Range("AV11") ' Corpo e-mail
        
End With

Application.DisplayAlerts = True

Set OutMail = Nothing
Set OutApp = Nothing
Set OutProg = Nothing

    WH.Range("F1:AQ47").Select
   
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    WH.Range("E2").Select

    ThisWorkbook.Save ' Salva pasta de trabalho
   
 

End Sub

[Midori]

4 horas atrás, Tim Baster disse:

como e onde modifico o codigo para gerar um único e-mail colando corpo (outlook) os 4 DASHBOARD QUE EU TENHO na minha planilha?

Essas 4 planilhas no caso iriam como imagem no corpo do email?

 

[Tim Baster]

anexo não, 

seria no corpo do e-mail, abaixo das saudações, (bom dia, boa tarde e boa noite).