Macro para Salvar arquivo e enviar por email

Boa Tarde Pessoal, Tenho uma macro que salva o arquivo de excel em pdf e que manda um email, Porém, preciso de ajuda, pois eu precisaria que esse arquivo salvo em pdf fosse anexado ao email que é enviado, Estou mandando o arquivo que tenho até o momento:

Sub gerar_pdf()

Dim NomPastTrab As String

NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, “.”, -1, vbTextCompare) - 1))

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & “” & NomPastTrab & “.pdf” _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Dim OutApp As Object
Dim OutMail As Object
Dim texto As String

Set OutApp = CreateObject(“Outlook.Application”)
Set OutMail = OutApp.CreateItem(0)

texto = “Olá, segue solicitação de pedido em anexo,” & vbCrLf & “Atenciosamente”

With OutMail

.To = "[email protected]"
.Subject = "Nova Solicitação de Compra"
.body = texto
.Send

End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub