Message Property 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