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
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