Mail Routing

[Guest]

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 _
Recipients:="(e-mail address removed)"
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 = Array("(e-mail address removed)", _
"(e-mail address removed)", "(e-mail address removed)")
.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 = Array("(e-mail address removed)", _
"(e-mail address removed)", "(e-mail address removed)")
.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 Recipients:="(e-mail address removed)"

 

[Ron de Bruin]

Hi Jordan

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

 

[Guest]

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]

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
Start>Settings>Control Panel....Internet options (Program Tab)
Close Excel first before you make a change.

 

[Guest]

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