Hello.

I'm having troubles with the rountingslip.
I have created a word object in excel vba and i'm trying to send the word document to 2 recipients. I used the rounting slip but it only sends it to the first recipient and also doesn't recognize the returnwhendone command.

The code i use is:

obj_word.ActiveDocument.HasRoutingSlip = True
    With obj_word.ActiveDocument.RoutingSlip
        .Subject = "Esquema DCD"
        .Message = "Enviamos em anexo o esquema de um DCD fechado há pouco."
        .ReturnWhenDone = False
        .Delivery = wdoneafteranother
        .AddRecipient recipient:="x981387"
        .AddRecipient recipient:="x060122"
    End With
    obj_word.ActiveDocument.Route

In a previous code i have created the object.

Can someone help me. It's driving me crazy...
Tks in advance