Home |
Search |
Today's Posts |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
email worksheet | Excel Discussion (Misc queries) | |||
Weekly Transaction Processing | Excel Worksheet Functions | |||
If I mistakingly click on the email button on a worksheet, how do. | Excel Discussion (Misc queries) | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions | |||
Excel 2003 - referenceing the active worksheet page in vlookup | Excel Worksheet Functions |