I have a worksheet that periodically needs to be filled out and then sent to
several people. So far this first example is the only one that i can get to
work. but every time I use it a message pops up asking me to save it to a
shared location. I don't want to see this warning anymore. Is there someway
to get ride of it? Or is there a better way of sending mail? Why can i not
get any of the examples besides the first one to work. It gives me a some
object error...and it will not let me change .HasRoutingSlip = True.

Thank you so much for the help,
jordan


ActiveWorkbook.SendForReview _
"
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _
IncludeAttachment:=True

'//////////////////////////////////////////////////////////////////////////////////

Workbooks("DrawingACK21.xls").HasRoutingSlip = True
With Workbooks("DrawingACK21.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("DrawingACK21.xls").Route

'/////////////////////////////////////////////////////////////////////////////////////

ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
ThisWorkbook.Route

'////////////////////////////////////////////////////////////////////////////////////////////
ActiveWorkbook.SendMail "

Hi Jordan

Try one of the examples on my site
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jordan" wrote in message ...
I have a worksheet that periodically needs to be filled out and then sent to
several people. So far this first example is the only one that i can get to
work. but every time I use it a message pops up asking me to save it to a
shared location. I don't want to see this warning anymore. Is there someway
to get ride of it? Or is there a better way of sending mail? Why can i not
get any of the examples besides the first one to work. It gives me a some
object error...and it will not let me change .HasRoutingSlip = True.

Thank you so much for the help,
jordan


ActiveWorkbook.SendForReview _
"
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _
IncludeAttachment:=True

'//////////////////////////////////////////////////////////////////////////////////

Workbooks("DrawingACK21.xls").HasRoutingSlip = True
With Workbooks("DrawingACK21.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("DrawingACK21.xls").Route

'/////////////////////////////////////////////////////////////////////////////////////

ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
ThisWorkbook.Route

'////////////////////////////////////////////////////////////////////////////////////////////
ActiveWorkbook.SendMail "

Thank you Ron de Bruin,

there is a ton of information on that web site of yours which is awesome. i
still have a problem however in that i do not use Outlook. Lotus Notes is
all i have to work with here, so do you know what kind of problems that will
cause, or more importantly how i get around them.

Thanks again,
jordan



"Ron de Bruin" wrote:

Hi Jordan

Try one of the examples on my site
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jordan" wrote in message ...
I have a worksheet that periodically needs to be filled out and then sent to
several people. So far this first example is the only one that i can get to
work. but every time I use it a message pops up asking me to save it to a
shared location. I don't want to see this warning anymore. Is there someway
to get ride of it? Or is there a better way of sending mail? Why can i not
get any of the examples besides the first one to work. It gives me a some
object error...and it will not let me change .HasRoutingSlip = True.

Thank you so much for the help,
jordan


ActiveWorkbook.SendForReview _
"
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _
IncludeAttachment:=True

'//////////////////////////////////////////////////////////////////////////////////

Workbooks("DrawingACK21.xls").HasRoutingSlip = True
With Workbooks("DrawingACK21.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("DrawingACK21.xls").Route

'/////////////////////////////////////////////////////////////////////////////////////

ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
ThisWorkbook.Route

'////////////////////////////////////////////////////////////////////////////////////////////
ActiveWorkbook.SendMail "

Hi Jordan

Sorry I am not familiar with Lotes notes.

Why don't you setup a account in Outlook Express and use that
mail program in Excel.to mail with code.
For all other things use Lotes Notes

Change it to Outlook Express like this
StartSettingsControl Panel....Internet options (Program Tab)
Close Excel first before you make a change.




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jordan" wrote in message ...
Thank you Ron de Bruin,

there is a ton of information on that web site of yours which is awesome. i
still have a problem however in that i do not use Outlook. Lotus Notes is
all i have to work with here, so do you know what kind of problems that will
cause, or more importantly how i get around them.

Thanks again,
jordan



"Ron de Bruin" wrote:

Hi Jordan

Try one of the examples on my site
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jordan" wrote in message ...
I have a worksheet that periodically needs to be filled out and then sent to
several people. So far this first example is the only one that i can get to
work. but every time I use it a message pops up asking me to save it to a
shared location. I don't want to see this warning anymore. Is there someway
to get ride of it? Or is there a better way of sending mail? Why can i not
get any of the examples besides the first one to work. It gives me a some
object error...and it will not let me change .HasRoutingSlip = True.

Thank you so much for the help,
jordan


ActiveWorkbook.SendForReview _
"
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _
IncludeAttachment:=True

'//////////////////////////////////////////////////////////////////////////////////

Workbooks("DrawingACK21.xls").HasRoutingSlip = True
With Workbooks("DrawingACK21.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("DrawingACK21.xls").Route

'/////////////////////////////////////////////////////////////////////////////////////

ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
ThisWorkbook.Route

'////////////////////////////////////////////////////////////////////////////////////////////
ActiveWorkbook.SendMail "

Jordan - did you ever get this to work with notes - if so can you send me a
sample of what you did?
Thanks

"Jordan" wrote:

Thank you Ron de Bruin,

there is a ton of information on that web site of yours which is awesome. i
still have a problem however in that i do not use Outlook. Lotus Notes is
all i have to work with here, so do you know what kind of problems that will
cause, or more importantly how i get around them.

Thanks again,
jordan



"Ron de Bruin" wrote:

Hi Jordan

Try one of the examples on my site
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jordan" wrote in message ...
I have a worksheet that periodically needs to be filled out and then sent to
several people. So far this first example is the only one that i can get to
work. but every time I use it a message pops up asking me to save it to a
shared location. I don't want to see this warning anymore. Is there someway
to get ride of it? Or is there a better way of sending mail? Why can i not
get any of the examples besides the first one to work. It gives me a some
object error...and it will not let me change .HasRoutingSlip = True.

Thank you so much for the help,
jordan


ActiveWorkbook.SendForReview _
"
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _
IncludeAttachment:=True

'//////////////////////////////////////////////////////////////////////////////////

Workbooks("DrawingACK21.xls").HasRoutingSlip = True
With Workbooks("DrawingACK21.xls").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("DrawingACK21.xls").Route

'/////////////////////////////////////////////////////////////////////////////////////

ThisWorkbook.HasRoutingSlip = True
With ThisWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = ", _
", ")
.Subject = "Here is Drawing Acknowledgement you requested"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
ThisWorkbook.Route

'////////////////////////////////////////////////////////////////////////////////////////////
ActiveWorkbook.SendMail "