How can i send my workbook as pdf to email

[sastbury]

I've got my VBA that saves the whole worksheet as a filename in a cell and date-stamp, looking for an addition to the code that will send an email too. Cell with email address is E8.

Private Sub CommandButton1_Click()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Stuart\Desktop" & ActiveSheet.Range("E7").Value & _
Format(Now(), "dd.mm.yy hh.mm") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Any help would be appreciated

Thanks

 

[AlphaFrog]

This link may help.

Create and Mail PDF files with Excel 2007/2016

 

[sastbury]

Thanks a lot