The following VBA code sample sends a range of ten cells, A1 through B5, from the currently active workbook to the e-mail address specified in the code:
' Select the range of cells on the active worksheet.
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
E-Mail_Address_Here with the e-mail address that you want to send the range to.
Note Item.Send in the code triggers an Outlook security warning to display the following message: Click
Yes to allow the mail to be sent.