Codigo vba para enviar e- mail através do outlook

Esse código não salva em PDF ele salva a planilha ativa e envia para o cliente com o email que esta gravado em uma determinada celula, você pode adaptar da maneira que achar melhor o código funciona perfeitamente.
Bom proveito!!!


Sub eMailActiveWorkbook()
Dim OL As Object
Dim EmailItem As Object
Dim Wb As Workbook

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Wb = ActiveWorkbook
Wb.Save
With EmailItem
.Subject = "Assunto"
.Body = "coloque aqui sua saudação" & vbCrLf & _
"" & vbCrLf & _
"Obrigado!"
.To = Range("b8") 'coloque aqui a celula onde esta o email
.CC = "fulano de tal@gmail.com"
.Importance = olImportanceNormal
.Attachments.Add Wb.FullName
.Send

MsgBox "Cópia de pedido enviado com sucesso", vbInformation, "ENVIADO"