CorpusSpongiosum
New Member
- Joined
- Mar 8, 2002
- Messages
- 9
I have assigned this code to a control button on a worksheet. It saves the worksheet and emails it but no message box is displayed. Does anyone know why and how to make the message box appear once the worksheet has been emailed?
Thanks
Sub Save()
'
' Save Macro
' Macro recorded 18/01/2002 by Craig
'
'
ActiveWorkbook.Save
End Sub
Sub Email()
'
' Email Macro
' Macro recorded 18/01/2002 by Craig
'
'
mailname = "Dionysius@btinternet.com"
ActiveWorkbook.SendMail Recipients:=mailname, Subject:="GDOCS Rota Submission", ReturnReceipt:="True"
End Sub
Sub Message()
MsgBox "Congratulations your rota bid has been submitted sucessfully. Have a nice day!"
End Sub
Thanks
Sub Save()
'
' Save Macro
' Macro recorded 18/01/2002 by Craig
'
'
ActiveWorkbook.Save
End Sub
Sub Email()
'
' Email Macro
' Macro recorded 18/01/2002 by Craig
'
'
mailname = "Dionysius@btinternet.com"
ActiveWorkbook.SendMail Recipients:=mailname, Subject:="GDOCS Rota Submission", ReturnReceipt:="True"
End Sub
Sub Message()
MsgBox "Congratulations your rota bid has been submitted sucessfully. Have a nice day!"
End Sub