Share via


HasRoutingSlip Property

True if the workbook has a routing slip. Read/write Boolean.

Remarks

Setting this property to True creates a routing slip with default values. Setting the property to False deletes the routing slip.

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