Saved as, closed, now send?

[Bundywa]

Hi all,
Having all sorts of problems with sending a saved file.
I have made a form (in excel 2003) which has data placed into it each day. I have found a small code that when you press a command button on the sheet it saves it as a new file with the date added to the end of the file name, and put into a set folder on a server then closed down.
What I would like to happen is when the user clicks on the button an email copy of the newly saved file is to be sent to 3 email addresses.

The code is I have now is below...

Private Sub cmdClickToSaveAndClase_Click()
ActiveWorkbook.SaveAs "K:\9. Drill & Blast\9.22 Supervisors\9.22.06 Daily Drill Downtime Reports\Daily Sheets\Daily Drill Downtime Report " & Format(Date, "ddmmmyy") & ".xls"
ThisWorkbook.Close
End Sub

Any help would be most welcome

 

[Michael M]

Hi Bundy
Add this to the line before the workbbook close line

ActiveWorkbook.SendMail "NAME","NAME2","NAME3"

 

[Bundywa]

WOW..... I have spent so much time over the last couple of days trying to get this to work....

And all it took was this one little line......

You are a legend.. Thanks you so very much...

 

[Michael M]

Ahh, just one more for the Aussies.....LOL !!!