Hi,
You can use the windows Task schedule for opening the file. Then use the event before close and call the following subrotine for sending it as attachment.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CreateEmail
ThisWorkbook.Close savechanges:=True
End Sub
'Add Reference to outlook library in your project
Sub CreateEmail()
Dim OlApp As Object
Dim OlMail As Object
Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.createitem(olmailitem)
OlMail.Subject = "Test"
OlMail.To = "youremail@xxx.com"
OlMail.Attachments.Add ThisWorkbook.Path & "/" & ThisWorkbook.Name
OlMail.send
End Sub
Guy Zommer