eMail an mehrere Empfänger senden

Eine Arbeitsmappe soll in einem Vorgang an mehrere
Personen per Mail gesendet werden.
Sub Mail_senden()
   With ThisWorkbook
     .HasRoutingSlip = True
     With .RoutingSlip
        .Delivery = xlOneAfterAnother
        .Recipients = Array("[email protected]", _
            "[email protected]", "[email protected]")
        .Subject = "Hier ist die Arbeitsmappe"
        .Message = "Hier ist die Arbeitsmappe."
        .ReturnWhenDone = True
     End With
    .Route
    End With
End Sub