Route Method Example

If the active document has a routing slip attached to it, this example routes the document.

If ActiveDocument.HasRoutingSlip = True Then ActiveDocument.Route

This example routes Feedback.doc to two recipients, one after the other.

Documents("Feedback.doc").HasRoutingSlip = True
With Documents("Feedback.doc").RoutingSlip
    .Subject = "Your feedback please..."
    .AddRecipient Recipient:="Tad Orman"
    .AddRecipient Recipient:="David Simpson"
    .Delivery = wdOneAfterAnother
End With
Documents("Status.doc").Route