Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
'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")
Join the community of 500,000 technology professionals and ask your questions.