'Jose Skraviuk
'ayudaexcel@yahoo.com.ar

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
Dim stEmail As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
strEmail = "aaa.bbb@ccc.com"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
  .SaveAs ThisWorkbook.Name & " " & strdate & ".xls"
  .SendMail strEmail, "Archivo Adjunto"
  .ChangeFileAccess xlReadOnly
  Kill .FullName
  .Close False
End With
Application.ScreenUpdating = True
End Sub

strEmail = "aaa.bbb@ccc.com"