ReturnWhenDone Property Example

This example sets the routing slip for Sales 1995.doc to return the document back to the original sender after the last recipient reviews it.

If Documents("Sales 1995.doc").HasRoutingSlip = True Then 
    With Documents("Sales 1995.doc").RoutingSlip
        .Delivery = wdOneAfterAnother
        .ReturnWhenDone = True
    End With
End If