emailing a sheet

[choice]

Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("f2:g7").Select

' 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.
With ActiveSheet.MailEnvelope
.Introduction = "TESTER"
.Item.To = "(e-mail address removed)"
.Item.Subject = "test"
.Item.Send
End With
End Sub

---------------------------------------
This gives me a error of:
Class does not support Automation or does not support expected interface

any ideas of how to fix that?

thanks in advance

 

[Ron de Bruin]

Hi Choice

Only working if you use Outlook and it is your default mail program
Do you use that ?