Mail Rounting, Need help quick!! I'm under the gun on this.

[Guest]

Hello,
I have a form that I need to be able to send to people, have them fill out
electronically and send back to me. I am trying to use the routing function
so that when they click the macro button an email is automatically generated
back to me with form attached. Right now this(see code below) is the best
way i can come up with for accomplishing this. But their is this message
that keeps popping up on all their computers that says "If you want to track
reviewers' changes in this workbook you need to make this workbook shared, do
you want to save a shared version of this workbook?"
I really want to get rid of that question, it is just a major inconvenience
because lots of people get these forms and they all stop in their tracks when
they see that and don't know what to do.
This is the code I am using so far...

ActiveWorkbook.SendForReview _
Recipients:="(e-mail address removed)", _
Subject:="Here is the Acknowledgement that you requested", _
ShowMessage:=False, _ 'I don't know what ShowMessage does
IncludeAttachment:=True

I was also considering placing a hyperlink in the document and have the
macro just follow the hyperlink, but then how would i attach the document
that they just filled out?

The other problem is that We use Lotus Notes and I email to people with all
sorts of different programs, (e.g. Outlook, or even just hotmail or yahoo
accounts) so i don't even know if this will work at all.

Thank you so much for any help with this,
Jordan

 

[Guest]

Jordan

Try using the routing slip property instead.

This is copied from the help

With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", _
"Jean Selva", "Bernard Gabor")
.Subject = "Here is the workbook"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
End With
.Route
End With

This should allow people to make changes and route the workbook back to you
automatically.

 

[Guest]

One warning though. This is not going to work with all email programs. It
definitely will not work for people with web based email like hotmail.

 

[Guest]

Hey Jared,
Is there some other way? I do send it to people who have hotmail. Is their
a way to make this work on their computers?

Also, when I tried the routing slip method I come up with this error that I
can't seem to figure out.

Run Time Error 1004
'HasRoutingSlip' of object '_workbook' failed

Thanks,
Jordan

 

[Guest]

Jordan,

First, I could be wrong, but I don't know of a way. If someone with hotmail
isn't connected to the internet, there is no way to access a program that
would hold the message to be held in a queue to be sent once connected. Think
about it. You would have to write such a program (not within the scope of
Excel) that would do that if you really wanted to do this.

Alsom I couldn't reproduce your error.

Sorry,

Jared