I'm thinking that the solution SHOULD be something like this:
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Project Documentation"
.AddRecipient "Don Funk"
.AddRecipient "Dave Edson"
.Delivery = wdOneAfterAnother
End With
ActiveDocument.Route
The above snippet is what I found in the Word Help by searching for "Routing Slip"
But I can't get it to work on my computer. (I'm using Outlook and Word).
Actually, it "KINDA" works for me, but rather than just running smoothly and automatically, it causes Outlook to send up a bunch of message boxes and dialog boxes and stuff for me to click.
Maybe you'll have better luck with Lotus Notes....
The reason I asked if you have Outlook is that Outlook (as you probably know) uses VBA just like Word. So it's easy to get the two to work together (in theory, at least). If we were using Word and Outlook, we could write a macro (different from the routing slip business) that would make Word "talk to" Outlook (something with "Set myOutlook = CreateObject("Outlook.Application")") Then we could have Word "tell" Outlook exactly how and to whom to send the document.
But I don't know how to make Word "talk to" Lotus Notes. I don't think Lotus Notes uses VBA.
I'll step back now and see if someone else comes up with a better answer. (I hope someone will ! )