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 = "bruno_gubiani@sicredi.com.br"
    .Subject = "Nova Solicitação de Compra"
    .body = texto
    .Send
 End With
 
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub