返回或设置传送名单的消息文字。这些文字将作为传送指定工作簿时的邮件消息内容。String 类型,可读写。
本示例将 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