向指定的传送名单添加收件人姓名。
注意 如果收件人的姓名不在共用通讯簿上,会导致出错。
expression.AddRecipient(Recipient)
expression 必需。该表达式返回一个 RoutingSlip 对象。
Recipient String 类型,必需。收件人姓名。
本示例依次将活动文档传送给两个收件人。
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Status Document"
.AddRecipient Recipient:="Tim O' Brien"
.AddRecipient Recipient:="Karin Gallagher"
.Delivery = wdOneAfterAnother
End With
ActiveDocument.Route