Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat. The purpose of this eBook is to educate the reader about ransomware attacks.
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
|set focus to tabbed sub form||10||39|
|Back-end Database connect string being set someplace where I can't find it.||10||30|
|Inserting a datasheet query into the body of an email using VBA?||4||23|
|Pass Variable Form Name to another form in Access||16||22|