using vbc to mail a spreadsheet form excel

[Steve Douglas P2p, MCP]

Hi All,

I am sending a spreadsheet to a manage for approval, and once it is
approved I would like the spreadsheet to be mailed back to me.


I am using the below code, and would be grateful if you could let me
know if this is correct, or if there is a beter way to do it. We are
working with Outlook exchange as an email client, if that is of any
use.


Sub Quote_Accepted()


ActiveSheet.Range("b2:b51").Select


ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope
.Introduction = "This Quote has been approved."
.Item.To = "my email adress"
.Item.Subject = "Quote Acceptance"
.Item.Send
End With
End Sub


Thanks for any help