Excel vba - enviar varias arquivos pdf & excel

[RAIMUNDO LIMA DE ARAUJO]

Boa tarde,

 

Podem me ajudar? 

Gostaria de enviar e-mail ness formato de baixo. 
Sheets (GRANEL T1,GRANEL T2,ULTRACARGO), formato PDF

E em anexo o print da Sheet VISÃO GERAL.

 

Obs:
Já tem codigo nela, porém não sei como adaptar. 

 

BASE TESTE.xlsx

Option Explicit

Sub CriarEmailSimples()

Dim olApp As Outlook.Application
Dim janela As Outlook.MailItem
Dim anexo01 As String, Anexo02 As String, Anexo03 As String, Anexo04 As String, Anexo05 As String, Anexo06 As String, Anexo07 As String, Anexo08 As String
Dim assinatura As String

'localiza na pasta o arquivo e anexa no e-mail

anexo01 = ThisWorkbook.FullName ' anexa a planilha no e-mail
Anexo02 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - GRANEL T1.pdf" 'anexa no e-mail o arquivo encontrado depois \
Anexo03 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - GRANEL T2.pdf"
Anexo04 = ThisWorkbook.Path & "\MOVIMENTAÇÃO - ULTRACARGO.pdf"

Set olApp = New Outlook.Application
Set janela = olApp.CreateItem(olMailItem)

With janela

'.BodyFormat = olFormatHTML

.Display
.To = "[email protected]"
.CC = "[email protected]"
.BCC = "[email protected]"
.Subject = "CONTROLE DE CARREGAMENTO EM TERCEIROS"

.Attachments.Add anexo01 ' essa atribuição anexa o arquivo no e-mail, conforme variavel anexo01
.Attachments.Add Anexo02
.Attachments.Add Anexo03 'anexa a planilha
.Attachments.Add Anexo04

 Sheets("VISÃO GERAL").Select
 Range("B4:J26").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("B4").Select
Sheets("VISÃO GERAL").Select
    

assinatura = .HTMLBody

End With

End Sub