We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
'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.
|sending mail each sheet to respective DL with a message prompt||3||47|
|Excel formula to calculate ID #||4||41|
|Importing specific cell from Excel to MS Access||17||51|
|Pull first name out of cell||2||28|
Join the community of 500,000 technology professionals and ask your questions.