ReturnWhenDone 属性

       

如果传送过程结束后,工作簿返回给发件人,则该值为 TrueBoolean 类型,可读写。

说明

如果正在进行传送,则无法设置该属性。

示例

本示例将工作簿 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?"
    .ReturnWhenDone = True
End With
Workbooks("BOOK1.XLS").Route