Public Sub eMailJobSheet(streMail As String, myJobNo As Long, myClient As Long)
lngNo = myJobNo ' for filter on R-Print a Job
DoCmd.OutputTo acOutputReport, "R-Print a Job", acFormatPDF, "c:\temp\Job_" & myJobNo & ".pdf", False
If Dir("c:\temp\Job_" & myJobNo & ".pdf") = "" Then 'Precautionary only
MsgBox "Cannot eMail this Job as the .pdf is not there", vbCritical, "Contact Administrator"
Exit Sub
End If
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Set MyOutlook = New Outlook.Application
Set MyMail = MyOutlook.CreateItem(olMailItem)
MyMail.To = streMail
MyMail.Subject = "Job No. " & myJobNo & " for " & DLookup("([Company])", "Contacts", "number = " & myClient)
MyMail.Body = "Please find the attached Job for your attention"
MyMail.Attachments.Add "c:\temp\Job_" & myJobNo & ".pdf", olByValue, 1
MyMail.Send 'This sends it in Standard Outlook
MsgBox "eMail sent to Outlook" & vbLf & vbLf & "This will be despatched at the next Send/Receive action", vbInformation, "Completed"
Forms![F-Jobs].[JobeMailed].Value = True
'Now clean up
Kill ("c:\temp\Job_" & myJobNo & ".pdf")
Set MyMail = Nothing
Set MyOutlook = Nothing
End Sub
