We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub SendEmail() Dim pName As String pName = InputBox("Enter the parent's name", "SEND EMAIL TO PARENT") If pName = vbNullString Then GoTo Exit_SendEmail End If Dim School As String School = Nz(DLookup("SchoolName", "tblSchool"), 0) Dim TeacherName As String TeacherName = Nz(DLookup("teacherName", "tblTeacher"), 0) DoCmd.SetWarnings (False) Dim mailto As String Dim ccto As String Dim bccto As String mailto = Me.studentParentEmail ccto = "" bccto = "" emailmsg = "Hello " & pName & "!" & vbNewLine & vbNewLine & "Please find your child\'s student report from " & TeacherName & " at " & School & " attached!" _ & vbNewLine & vbNewLine & "Thank you!" mailsub = "Recent Student Report from " & TeacherName & "at " & School DoCmd.OpenReport "rptStudentReport", acViewPreview, , "[studentID] = '" & [studentID] & "'" DoCmd.SendObject acSendReport, , acFormatPDF, mailto, ccto, bccto, mailsub, emailmsg, True DoCmd.Close acReport, "rptStudentReport", acSaveNo DoCmd.SetWarnings (True) Exit_SendEmail: Exit Sub End Sub Private Sub cmdEmailParent_Click() Call SendEmail End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.