Message 属性

返回或设置指定传送名单的消息正文。该文本将用作传送文档的邮件的正文。String 类型，可读写。

expression   必需。该表达式返回一个 RoutingSlip 对象。

示例

本示例向活动文档添加一张传送名单，设置主题和邮件正文，添加一位收件人，然后传送文档。

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = "Status Doc"
    .Message = "Please fill in your status."
    .AddRecipient Recipient:="Kate Dresen"
End With
ActiveDocument.Route

如果“Monthly Report.doc”有一张附加的传送名单，则本示例显示邮件正文。

Set myDoc = Documents("Monthly Report.doc")
If myDoc.HasRoutingSlip = True _
    Then MsgBox myDoc.RoutingSlip.Message