Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.