Using ActiveWorkBook.RoutingSlip

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,
I have a worksheet that has a send button. When the send button is clicked
Is there code that would look in a range of cells and send the workbook to
all email addresses in the range using routing slip. I would use the
sendmail but the email addresses in the range change depending on certain
criteria. Hope this isn't to confusing. It is difficult for me to explain.


Any help is also greatly appreciated.

TH
 
Hi Tom,

I can't find anything regarding routing on Ron's page. I am trying to use
the code below but I receive the "Invalid use of property" message.

ActiveWorkbook.RoutingSlip , Sheets("Form").Range("b20:b25").Value, "Menu
Request Form"

TH
 
Tammy,

This is out of XL 2003 Help:

This example creates a routing slip for Book1.xls and then sends the
workbook to three recipients, one after another.
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", _
"Jean Selva", "Bernard Gabor")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Routehth,

Doug
 
Thanks Doug, I will give this a try.

TH

Doug Glancy said:
Tammy,

This is out of XL 2003 Help:

This example creates a routing slip for Book1.xls and then sends the
workbook to three recipients, one after another.
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", _
"Jean Selva", "Bernard Gabor")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Routehth,

Doug
Click to expand...
 
Back
Top