Docmd.SendObject allows you to send it as PDF as well. What I meant is if you intend to save those PDF files on your network for future use, audits, etc. If you don't need them then having a new report that includes just the current order is easiest. But if you do want to save them as implied in your existing code please try this updated one; the report gets opened hidden (to apply the filter), exported then closed:
Code:
Private Sub Command46_Click()
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As String, todayDate As String
'Export report in same folder as db with date stamp
todayDate = Format(Date, "MMDDYYYY")
fileName = Application.CurrentProject.Path & "\Contractor_ER_" & todayDate & ".pdf"
DoCmd.OpenReport "Contractor_ER", acViewPreview, , "[Order #] = " & Me.[Order #],acHidden 'adjust this line accordingly to match your field and control names
DoCmd.OutputTo acReport, "Contractor_ER", acFormatPDF, fileName, False
DoCmd.Close acReport, "Contractor_ER" 'close the hidden report
'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
.Subject = "Contractor Expense Report"
'Adding HTMLbody text to email
.HTMLBody = "<BODY style=font-size:12pt;font-family:Calibri>A new contractor order has been submitted and is ready for you to review.</BODY>" & _
"<BODY style=font-size:12pt;font-family:Calibri>Please print attachment off for your records and login into WORCS to review the order.</BODY>" & _
"" & "<br>" & "<br>" & _
"<BODY style=font-size:12pt;font-family:Calibri>Sincerely,<br></BODY>" & "<br>" & _
"<BODY style=font-size:11pt;font-family:Bahnschrift><b>WORCS_Admin<br></BODY>" & _
"<BODY style=font-size:11pt;font-family:Cavolini><i>CompanyName</BODY>"
.Attachments.Add fileName
.Display
End With
End Sub
Cheers,