Hallo zusammen

Ich möchte gerne per Knopfdruck eine Mail versenden eines bestimmten Range in einer Tabelle im Excel. 

Allerdings habe ich noch Probleme diesen Range in meine Mail zu bekommen. Habe es hiermit probiert. Aber es funktioniert nicht. Hat jemand einen Tipp für mich? Könnte ich meinen Range nicht irgendwie in den body schreiben?

Set ClpObj = New DataObject
        Set OutApp = CreateObject("Outlook.Application")
        Set Nachricht = OutApp.CreateItem(0)
        'Excelbereich der versendet werden soll.
        'Wenn kein Bereich versendet werden soll sondern
        'der Bereich bereits kopiert wurde, können sie die
        'nächsten beiden Zeilen auskommentieren

       'Das wäre der Range den ich in die Mail einfügen will
        Worksheets("IT").Range ("A2:B11")


        'Bereich wird in die Zwischenablage kopiert
        Selection.Copy
    
        With Nachricht
            .Subject = "Neuer Mitarbeiter, bitte User anlegen"
            'Zwischenablage wird eingefügt
            ClpObj.GetFromClipboard
            .Body = ClpObj.GetText(1)
            
            'Zwischenablage wird eingefügt
            'ClpObj.GetFromClipboard
            .To = Worksheets("Mail Adressen").Range("B22")


            'Hier wird die Mail angezeigt
            .Display
            'Hier wird die Mail gleich in den Postausgang gelegt
            '.Send
        End With
        Set OutApp = Nothing
        Set Nachricht = Nothing

Gruss

Marco