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 "