Eine Arbeitsmappe als Verteiler versenden.

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