Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
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
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.