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.
Sub PrintEmail2() Dim fname As String ' 'create filename from workbookname, sheetname and todays date fname = ActiveSheet.Range("b4").Value & "-" & ActiveSheet.Name & "-" & ActiveSheet.Range("b6").Value & Format(Date, " YYYY.MM.DD") 'change path to suit yourself.. currently points to "c:\temp\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\users\jmac001\Desktop\" & fname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Set Mail_object = CreateObject("Outlook.Application") With Mail_object.CreateItem(o) .Subject = "Forecast Updates" .To = "" .Body = "" .Attachments.Add "C:\users\jmac001\Desktop\TestFile 2013.05.24.pdf" .send End With End Sub
|How to check and batch replace text within a formula in an Excel spreadsheet possibly hundreds of files||6||41|
|MS Excel "--" in Formula What is it doing?||3||11|
|Populate data based ona criteria||6||17|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!