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 = "esrei@jfkfarms.co.za"
.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

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



"es" <anonymous@discussions.microsoft.com> wrote in message news:2c3101c507a4$3a7a9430$a601280a@phx.gbl...
> 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 = "esrei@jfkfarms.co.za"
> .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.

[Don Guillett]

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


--
Don Guillett
SalesAid Software
donaldb@281.com
"es" <anonymous@discussions.microsoft.com> wrote in message
news:2c3101c507a4$3a7a9430$a601280a@phx.gbl...
> 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 = "esrei@jfkfarms.co.za"
> .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.