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

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

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

--
Regards,
Tom Ogilvy


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

"Tom Ogilvy" wrote:

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

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

--
Regards,
Tom Ogilvy


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

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


--
Regards,
Tom Ogilvy




"Tammy H" wrote in message
...
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" wrote:

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

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

--
Regards,
Tom Ogilvy


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

Thanks Tom. I will check out the link.

"Tom Ogilvy" wrote:

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


--
Regards,
Tom Ogilvy




"Tammy H" wrote in message
...
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" wrote:

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

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

--
Regards,
Tom Ogilvy


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

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


"Tammy H" wrote in message
...
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" wrote:

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

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

--
Regards,
Tom Ogilvy


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

Thanks Doug, I will give this a try.

TH

"Doug Glancy" wrote:

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


"Tammy H" wrote in message
...
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" wrote:

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

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

--
Regards,
Tom Ogilvy


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