Sub Mail_senden()
   With ThisWorkbook
     .HasRoutingSlip = True
     With .RoutingSlip
        .Delivery = xlOneAfterAnother
        .Recipients = Array("Empfaenger1@Provider.de", _
            "Empfaenger2@Provider.de", "Empfaenger3@Provider.de")
        .Subject = "Hier ist die Arbeitsmappe"
        .Message = "Hier ist die Arbeitsmappe."
        .ReturnWhenDone = True
     End With
    .Route
    End With
End Sub