Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
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
|unable to execute Update query in Access 2016 on a table linked to SQL.||5||33|
|ms/access report does not open query||20||32|
|MS Access Replace Spaces In Title With Characters Like (-) Dashes In a New Field||16||26|
|Splitting out Data||14||27|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!