Subject Property Example

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