Hi Gary
You can use the following ONClick Event :-
Code:
Private Sub cmdEMail_Click()
10 On Error GoTo cmdEMail_Click_Error
20 If Me.Dirty Then Me.Dirty = False
30 MsgBox "A Copy of the PDF will be saved to the C Drive PDF Folder", vbInformation
Dim strSQL As String
Dim OutApp As Object
Dim OutMail As Object
Dim strToSQL As String
Dim strSubject As String
Dim strMessage As String
Dim strReportname As String
Dim strWhere As String
Dim strPath As String
40 strToSQL = Me.txtTo
50 strSubject = "Quality"
80 strReportname = "rptConcerns"
90 strPath = "C:\PDF Reports\" & strReportname & ".pdf"
100 DoCmd.OpenReport strReportname, acPreview, "", "[CaseReportedID]=[Forms]![frmEditCases]![frmEditCurrentAuditorCasesSubform].[Form]![CaseReportedID]"
110 DoCmd.OutputTo acOutputReport, strReportname, acFormatPDF, "C:\PDF Reports\" & Format(Date, "mmddyyyy") & _
strReportname & ".pdf", False
120 strMessage = "Find attached the current list of Concerns"
130 Set OutApp = CreateObject("Outlook.Application")
140 Set OutMail = OutApp.CreateItem(0)
150 On Error Resume Next
160 With OutMail
170 .To = strToSQL
190 .Subject = strSubject
200 .Attachments.Add strPath
210 .Body = strMessage
220 .Display
230 End With
240 On Error Resume Next
290 On Error GoTo 0
300 Exit Sub
cmdEMail_Click_Error:
310 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdEMail_Click, line " & Erl & "."
End Sub