Applies To
Workbook Object.
Description
True if the workbook has a RoutingSlip. Read-write.
Remarks
Setting this property to True creates a routing slip with default values. Setting the property to False deletes the routing slip.
See Also
RoutingSlip Property.
Example
This example creates a routing slip for BOOK1.XLS and then sends the workbook to three recipients, one after another.
Workbooks("BOOK1.XLS").HasRoutingSlip = True With Workbooks("BOOK1.XLS").RoutingSlip .Delivery = xlOneAfterAnother .Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor") .Subject = "Here is BOOK1.XLS" .Message = "Here is the workbook. What do you think?" End With Workbooks("BOOK1.XLS").Route