PDF and email together

This is a newer and more efficient way of creating a PDF, saving it and emailing it out.

Sub pdf_and_email()
FName = "[email protected]"
DDate = Format(Now(), "mm-dd-yyyy-hh-mm-ss")
Subj = "Subject of email here"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & FName & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'Send the PDF out here


emailname = FName
Set Mail_Object = CreateObject("Outlook.Application")
Set OMail = Mail_Object.Createitem(0)
With OMail
Signature = OMail.htmlbody
.Close False
End With


With Mail_Object.Createitem(o)
.Subject = Subj ' CHANGE TO SUIT
.To = emailname 'CHANGE TO SUIT
.htmlbody = "


Put the text for the email in here

Kind Regards

.Attachments.Add ThisWorkbook.Path & "\" & FName & ".pdf"
End With

Set Mail_Object = Nothing
Set OMail = Nothing


End Sub

Contact us for some advice and guidance on how your Excel development could be created and start helping your business straight away. Contact Us