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]