Is there a way to extend the number of characters Word uses to title a
routing slip?  The files I'm routing have filenames longer than 20
characters.  The routed files are automatically titled with a maximum length
of 8 characters.

The code I'm using is the same as in the help file:
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
   .Subject = "Enter subject here"
   .AddRecipient "Recipient E-mail here"
   .Message = "Enter message here"
   .Delivery = wdOneAfterAnother
End With
ActiveDocument.Route

Any help would be gladly appreciated.  Thanks.
PBC