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.
Private Sub Command28_Click() DoCmd.RunCommand acCmdSaveRecord Forms!InvoiceNoEmail.SetFocus Dim oApp As Object Dim oEmail As Outlook.MailItem Dim fileName As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT [Account], [InvoiceNum], [EmailAddress], [Company], [Printed] FROM [ContactTotalsNoEmail] WHERE (((Contracts.SelectedPrint)=True)) ORDER BY [Account];", dbOpenDynaset) Do While Not rst.EOF strRptFilter = "[InvoiceNum] = " & Chr(34) & rst![InvoiceNum] & Chr(34) DoCmd.PrintOut fileName = "C:\Scripts\NoEmail" & "\" & rst![Account] & " - " & rst![InvoiceNum] & ".pdf" DoCmd.OutputTo acOutputReport, "InvTotalNoEmail", acFormatPDF, fileName rst.Edit rst![Printed] = "Yes" rst.Update DoEvents rst.MoveNext Loop rst.Close Set rst = Nothing Forms!InvoiceNoEmail.Requery End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!