Hi All
I have following code:
The code emails the active sheet to the recipients shown. Is there any way to insert a msg box to ask what sheet you want to send? Also a outlook message appears when sending the sheet saying outlook is sending an email on and may contain a virus do you want to send? Is there a way to disable this message?
Thanks in advance
Andrew
I have following code:
Code:
Sub Mail_ActiveSheet()
Dim strdate As String
ActiveSheet.Copy
strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
ActiveWorkbook.SendMail "andrew.poole@knowlsley.gov.uk", _
"Sickness & Absence return"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub
The code emails the active sheet to the recipients shown. Is there any way to insert a msg box to ask what sheet you want to send? Also a outlook message appears when sending the sheet saying outlook is sending an email on and may contain a virus do you want to send? Is there a way to disable this message?
Thanks in advance
Andrew