Veeam® is happy to provide a FREE NFR server license to certified engineers, trainers, and bloggers. It allows for the non‑production use of Veeam Agent for Microsoft Windows. This license is valid for five workstations and two servers.
'Save file to FName2 Application.DisplayAlerts = False 'use if overwritting file to nix popup Dim FName2 As String ' L-learned do not use lettered drives FName2 = "\\na\Global-Groups\Holland\Operations\Logistics\DSC\Go to Work Signals\RePlan Report\AM PM RePlan Report " FName2 = FName2 & Format(Date, "yyyy.mm.dd") & " " & Format(Time, "hhmm") & ".xlsx" ActiveWorkbook.SaveAs Filename:= _ FName2, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False
Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = strto .CC = ccto .BCC = bccto ' .Subject = Format(Now, "dd-mmm-yy h:mm:ss") .Subject = Worksheets("EmailForReplanRpt").Range("J1") & " " & Format(Now, "mmm-dd-yyyy h:mm:ss") 'of listed s-sheet use J1 as Subject .Body = "DSC Replan Report is complete and ready for review. No issues. " & vbNewLine & _ "Report can be found: \\na\Global-Groups\Holland\Operations\Logistics\DSC\Go_to_Work_Signals\Replan_Report\ " & vbCrLf & vbNewLine & _ "For adds and deletes to this email, please advise. Thanks." & vbCrLf & _ "Runtime: " & Format(DateDiff("s", dtStart1, dtEnd1) / 86400, "HH:MM:SS")
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.