-
Solved: Email Workbook without macros
With the following code, does anyone have a solution to emailing the workbook without the embedded macro? There must be code to "SaveAs" without it.
I'm not a fan of presenting the recipients with an "enable or disable macros" on receipt. TIA
[vba]
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "mm-dd-yy")
ActiveWorkbook.SaveAs strDate & ".xls"
ActiveWorkbook.SendMail "<recipient>", _
"Daily Sales Report for " & strDate
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
[/vba]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules