Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.
Option Compare Database Option Explicit Public Sub EmailProdRprt() Dim OutApp As Object Dim OutMail As Object Dim ProdRprt1 As String Dim ProdRprt2 As String ProdRprt1 = "H:\All\Temp\ProdRprt.pdf" ProdRprt2 = "H:\All\Temp\ProdRprt.xlsx" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Dim strMsg As String Dim strTo As String Dim strCopyTo As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strTo = "firstname.lastname@example.org;email@example.com" strMsg = "Testing" 'Forms!frmShiftWarning.txtMsg strCopyTo = "firstname.lastname@example.org" 'Forms!frmShiftWarning.txtCopyTo With OutMail .To = strTo .cc = strCopyTo .BCC = "" .Subject = "Production Reports" .Body = strMsg .Attachments.Add ProdRprt1, ProdRprt2 .Display ' .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub
|How to create a mirror of a linked table in MS ACESS.||5||51|
|Ms Access Dcount Help Please! Saying 0 when it is more than 0||18||25|
|Access Formula or Module to Count Change in SSN Number||14||19|
|How to create a delete query to delete entire records||2||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
6 Experts available now in Live!