Excel Email

MazPower · Apr 30th, 2002, 04:50 PM

Hi!
I have no code to post.
I'm trying to find a code to send
2 out of 7 sheets from my workbook
by email via outlook.
let say sheets 1,2,3,4,5,6,7
want to send 2 and 6 by email
to MrTest@Test.com
with subject : this is only a test
thanks
Regards
jeff

Qroozn · Apr 30th, 2002, 05:14 PM

I can give you the code to send the entire workbook. you can muck around with it so it sends just a couple of pages. You will need to create your own code to copy the two necessary sheets to a new workbook so that you can then send them(this code sends a workbook not sheets)..

'myworkbook is file name
'me@me.me is the e-mail of recipient

Workbooks("myworkbook".xls").HasRoutingSlip = True
With Workbooks("myworkbook.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("me@me.me")
.Subject = "test only"
.Message = "Do you think this is cool" Workbooks("myworkbook.XLS").Route

robfritts · Apr 30th, 2002, 11:21 PM

why not use the posted code that Mr. Excel already has in his archives section:

Sheets(3).Copy
Application.Dialogs(xlDialogSendMail).Show _
arg1:=RecipientEmailAddress, _
arg2:="subject line goes here"
ActiveWorkbook.Close SaveChanges:=False

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 30th, 2002, 04:50 PM	#1
MazPower New Member Join Date: Apr 2002 Posts: 5	Hi! I have no code to post. I'm trying to find a code to send 2 out of 7 sheets from my workbook by email via outlook. let say sheets 1,2,3,4,5,6,7 want to send 2 and 6 by email to MrTest@Test.com with subject : this is only a test thanks Regards jeff

Apr 30th, 2002, 05:14 PM	#2
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	I can give you the code to send the entire workbook. you can muck around with it so it sends just a couple of pages. You will need to create your own code to copy the two necessary sheets to a new workbook so that you can then send them(this code sends a workbook not sheets).. 'myworkbook is file name 'me@me.me is the e-mail of recipient Workbooks("myworkbook".xls").HasRoutingSlip = True With Workbooks("myworkbook.XLS").RoutingSlip .Delivery = xlOneAfterAnother .Recipients = Array("me@me.me") .Subject = "test only" .Message = "Do you think this is cool" Workbooks("myworkbook.XLS").Route

Apr 30th, 2002, 11:21 PM	#3
robfritts New Member Join Date: Apr 2002 Location: KC, MO Posts: 18	why not use the posted code that Mr. Excel already has in his archives section: Sheets(3).Copy Application.Dialogs(xlDialogSendMail).Show _ arg1:=RecipientEmailAddress, _ arg2:="subject line goes here" ActiveWorkbook.Close SaveChanges:=False