Using ActiveWorkBook.RoutingSlip

[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

 

[Tom Ogilvy]

I think Ron de Bruin has this covered on his page:

http://www.rondebruin.nl/sendmail.htm

 

[Guest]

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

 

[Tom Ogilvy]

No, there is no routingslip, but there is code to send an email to each
person in a range of cells:

http://www.rondebruin.nl/mail/folder2/files.htm

just adjust that to send the same attachment.

If you insist on a routing slip, then see these past postings:

http://tinyurl.com/yflcye

 

[Doug Glancy]

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

 

[Guest]

Thanks Doug, I will give this a try.

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

 

[Guest]

Thanks Tom. I will check out the link.

No, there is no routingslip, but there is code to send an email to each
person in a range of cells:

http://www.rondebruin.nl/mail/folder2/files.htm

just adjust that to send the same attachment.

If you insist on a routing slip, then see these past postings:

http://tinyurl.com/yflcye