This example sets the subject and message text for the routing slip associated with Month End.doc.
If Documents("Month End.doc").HasRoutingSlip = True Then
With Documents("Month End.doc").RoutingSlip
.Subject = "End of month report"
.Message = "I need your response on this."
End With
End If
This example displays the subject of a letter created by the Letter Wizard, unless the subject is an empty string.
If ActiveDocument.GetLetterContent.Subject <> "" Then
MsgBox ActiveDocument.GetLetterContent.Subject
End If