email active worksheet
 

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

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

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


--
Don Guillett
SalesAid Software

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