使用工作簿的当前传送名单传送工作簿。
expression.Route
expression 必需。该表达式返回一个 Workbook 对象。
如果传送工作簿,则工作簿的 Routed 属性值为 True。
本示例为“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