email active worksheet

[es]

Sub Mail_ActiveSheet_Body()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
This is the macro
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Confromation"
.HTMLBody = (ActiveSheet) *********************
.Send 'or use .Display
End With
Application.ScreenUpdating = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


at ********* run time error = object doesn't support this
property or methord.

Please help I am trying to compile a makro that will mail
the active sheet as the message body.

 

[Ron de Bruin]

You must copy the function also in the module
See my webpage

http://www.rondebruin.nl/mail/folder3/mail2.htm

 

[Don Guillett]

look here.
http://www.rondebruin.nl/