RoutingSlip 属性

       

返回一个 RoutingSlip 对象,该对象代表指定工作簿的传送名单。如果没有传送名单的话,读取该属性将产生错误(进行读取之前先检查 HasRoutingSlip 属性)。只读。

示例

本示例为“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