I have the below mail that opening up an outlook email to be sent out. I would like to it to send a report as well as a pdf attachment. The report is titled CustomerInvoicesIndividual
What coding do I add so it sends the report as an attachment?
Private Sub EmailInvoice_Click()
Dim sSubj As String, sBody As String
sSubj = "We are all set for swim lessons!"
sBody = "<HTML> " & XXXXXX & ", <BR>" _
& "<P> We are excited to start swim lessons with you this summer! Swim lessons brings excitement, anxiety, fun, fear, and nerves all wrapped up in one. We are thrilled you choose us to guide you through the adventure. We will strive to exceed your expectations in every way. Attached you will see a confirmation of the first package of lessons as we discussed on the phone.</P>" _
& "<P> XXXX is your account manager who will guide you through your swim lessons experience. XXX is excited to help you with any schedule issues, questions, concerns or even if you just want to chat. The direct line to meet XXXX is XXX-XXX-XXXX. XXX will be giving you a call for an introduction in the near future. </P>" _
& "<P> Visit us on social media! Great place to get to know us and post some of your own. Interested in an easy way to get two free days of swim lessons? Earn an extra swim lesson for each of the below:<P>" _
& "<UL><LI>6 Posts to Facebook or Instagram: Make one post for everyday of swim lessons and you will receive one free lesson! Make sure to use #XXXXXX and tag us @XXXXXX.</LI>" _
& "<LI>Refer 5 Friends: Simply refer 5 friends for swim lessons and receive one free lesson. Fast and easy! Click this link for referral sheet: XXXXXXXXXXXXXXXXXX</LI></UL></P>" _
& "<P>We would like to thank you again for choosing Big Arms Swimmers to guide you through your swim lesson adventure. We have been successfully helping families just like yours since the summer of 2000. You are in good hands! <P>" _
& "Have a great summer day,<BR><BR> <BR>Big Arms Swimmers Team<BR>" _
& "XXX-XXX-XXXX<BR> <BR>" _
& "<a href=http://www.XXXXXXX.com>www.XXXXXX.com</a><BR>" _
& "<a href=http://www.Facebook.com>www.Facebook.com/XXXXXXXXX</a>. </HTML>"
Set objOutlook = CreateObject("Outlook.Application")
Set objEmailMessage = objOutlook.CreateItem(olMailItem)
objEmailMessage.To = Me.Parent.Parent.[Email]
objEmailMessage.Subject = sSubj
objEmailMessage.htmlBody = sBody & vbCrLf & vbCrLf