如果允许对传送名单进行状态追踪,则该值为 True。Boolean 类型,可读写。
如果正在进行传送,则无法设置该属性。
本示例将工作簿 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
.TrackStatus = True
End With
Workbooks("BOOK1.XLS").Route