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 = "
.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

Hi Choice

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


--
Regards Ron de Bruin
http://www.rondebruin.nl



"choice" wrote in message ...
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 = "
.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