Subject Property Example

This example sets the subject for a routing slip for the open workbook. To run this example, you must have Microsoft Exchange installed.

With ThisWorkbook
    .HasRoutingSlip = True
    With .RoutingSlip
        .Delivery = xlOneAfterAnother
        .Recipients = Array("Adam Bendel", _
            "Jean Selva", "Bernard Gabor")
        .Subject = "Here is the workbook"
        .Message = "Here is the workbook. What do you think?"
        .ReturnWhenDone = True
End With
    .Route
End With