Message Property

Microsoft Word Visual Basic

expression.Message

expression    Required. An expression that returns a RoutingSlip object.

Example

This example adds a routing slip to the active document, sets the subject and message text, adds a recipient, and then routes the document.

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

If "Monthly Report.doc" has a routing slip attached to it, this example displays the message text.

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