HasRoutingSlip 属性

如果指定工作簿含有传送名单，则该值为 True。Boolean 类型，可读写。

说明

将该属性设为 True，则用默认值创建一个传送名单；将该属性设为 False，则删除传送名单。

示例

本示例为 Book1.xls 创建一个传递名单，然后将该工作簿逐个传送给三个收信人。

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