Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Function send_emailcap_mtd() On Error GoTo Err_Send_Click Dim mydb As Database, RS As Recordset Set mydb = DBEngine.Workspaces(0).Databases(0) Dim attachPDF As String Dim docname As String, ctl As Control, strTo As String Dim path As String, subject As String, body As String Dim attach As String, blnSuccessful As Boolean Application.Echo False Set RS = mydb.OpenRecordset("qry_emailcap_mtd") path = "c:\temp\" docname = "emailcap_mtd" attachPDF = path + docname & ".pdf" subject = "Email Address Capture Report" body = "Daily Report is Attached" DoCmd.OutputTo acOutputReport, docname, acFormatPDF, attachPDF Do Until RS.EOF strTo = RS!Email blnSuccessful = FnSafeSendEmail(strTo, subject, body, attachPDF, "", "") RS.MoveNext Loop RS.Close Set RS = Nothing Set mydb = Nothing exit_send_click: Application.Echo True Exit Function Err_Send_Click: Resume exit_send_click End Function
|MS SQL Bulk load data error||5||33|
|combine many return data from field in a new query INTO one field||5||35|
|Release Access 2010 Combo Box Row Source after user selects a value in the Combo Box||8||34|
|"this object requires a newer version of the microsoft access database engine"||27||43|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!