excel-range til mail

Filer > Send til > Markeringen

Sender kun markerede områder. Hvordan du får Outlook åbnet, sender og lukker ved en VBA procedüre ved jeg ikke

jeg lytter lige med og vil godt sende 60 point efter.
Problemet er automatisk at få overført et range til mailens body.

Se under hjæl - Send a workbook or worksheet in e-mail
Her står også beskrevet hvordan man sender udvalgte celler

Så har jeg nok ikke beskrevet mit problem korrekt.
Jeg har så oprettet mit eget spm. 
http://www.eksperten.dk/spm/323619

Se på dette link, som jeg også har skrevet i bak's spørgsmål.

http://www.j-walk.com/ss/excel/tips/tip86.htm

Her er koden. Hjælpeteksten står på tysk, ikke et af mine hovedsprog, men jeg har indsat egen mailadresse, og den virker.

Sub Excel_Range_via_Outlook_Senden()
    Dim OutApp As Object, Mail As Object, i
    Dim Nachricht
    'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
    'sonst geht es nicht
    'Dataobject wird gebraucht wegen der Zwischenablage
    Dim ClpObj As DataObject
    For i = 1 To 10
        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
        Range("A1:A5").Select
        'Bereich wird in die Zwischenablage kopiert
        Selection.Copy
        With Nachricht
            .Subject = "Subject teksten her"
            'Zwischenablage wird eingefügt
            ClpObj.GetFromClipboard
            .Body = ClpObj.GetText(1)
            .To = "Modtagers E-mailadresse"
            'Hier wird die Mail angezeigt
            '.Display
            'Hier wird die Mail gleich in den Postausgang gelegt
            .Send
        End With
        Set OutApp = Nothing
        Set Nachricht = Nothing
        'Auf Outlook warten. Ist nicht schnell genug :-))
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub

Hovsa's tyske virker perfect  bortset fra formateringen  men det må jeg lige arbejde lidt med    tak for hjælpen
j-kron får også point da der også var noget jeg kunne bruge der


tak for hjælpen
Peter

Jeg takker :-)