HasRoutingSlip - oder was anderes

[HoPi]

Hi ihrs,
ich möchte mir in Word ein Makro schreiben, dass einen markierten Text in ein neues Dokument einfügt, unter dem Dateinamen "aktuelles Datum.doc" speichert und dann per Mail in die Welt setzt. Ich hab versucht, das mit HasRoutingSlip hinzukriegen, aber ohne Erfolg.

Ich hab mittlerweile so viel an dem Ding rumgebastelt, dass ich mich selbst nicht mehr wiederfinde
Hatte am Anfang das Problem, dass das Dokument durch irgendeinen Grund nicht angehängt wurde; dann meckerte Word beim Öffnen des Dokuments etwas von einem Verteiler...
Ich versorg euch mal mit dem Quellcode.

Sub DokumentExport()
    Selection.Copy
    Documents.Add Template:= _
        "C:\Dokumente und Einstellungen\[...]\Microsoft\Vorlagen\Normal.dot" _
        , NewTemplate:=False, DocumentType:=0
    Selection.Paste
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(0.42)
        .BottomMargin = CentimetersToPoints(0.43)
        .LeftMargin = CentimetersToPoints(0.42)
        .RightMargin = CentimetersToPoints(0.43)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(0.2)
        .FooterDistance = CentimetersToPoints(0.2)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
    End With
    Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
    Dim Dateiname As String
    Dateiname = "C:\Dokument " & Date & ".doc"
    ActiveDocument.SaveAs (Dateiname)
    ActiveDocument.Close
    ActiveDocument.HasRoutingSlip = True
    With ActiveDocument.RoutingSlip
        .Delivery = wdOneAfterAnother
        .Recipients = "empfaenger@domain.de" <-- hab ich natürlich geändert :)
        .Subject = "TEST! " & Date
        .Message = "automatisch generierte E-Mail"
        .ReturnWhenDone = True
    End With
    ActiveDocument.Route
    ActiveDocument.HasRoutingSlip = False

    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    Kill Dateiname

End Sub

Im Moment kriege ich einen Laufzeitfehler 424 - Objekt erforderlich. Das Highlight ist dann auf der Recipients-Zeile.
Kann mir jemand helfen oder vielleicht eine andere Möglichkeit zeigen, wie ich in einem Makro ein Dokument per Mail verschicken kann? Wichtig: es muss als Anhang verschickt werden!