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

hi,
I have never done it that way. and i can't test it.
see this website
http://www.rondebruin.nl/sendmail.htm

Regards
FSt1

"Steve Douglas P2p, MCP" wrote:

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