Eine Arbeitsmappe als Verteiler versenden.

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 = "Anbei die Arbeitsmappe."
            .ReturnWhenDone = True
        End With
        .Route
    End With
End Sub