Mailing a spreadsheet

  • Thread starter Steve Douglas P2p, MCP
  • Start date
S

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top