Indsætte range som billede i Outlook body

Hej Eksperter!

Håber I kan hjælpe mig med denne sag. Jeg kopierer et celle område fra excel, som billede og vil sætte dette ind i en ny outlook mail, men jeg ved ikke hvordan jeg ved hjælp af VBA sætter billedet ind i mailens body... kan nogen hjælpe?? (nedenfor er vist hvor langt jeg er kommet...)

På forhånd tak


Sub Mail_til_CS()

    'Genvejstast:Ctrl+Shift+m
   
    Dim strMail(4) As String
    Dim newFile, newName, shNavn, cpNavn, strFilNavn As String
   
' kopierer som billede
    Range("budgetter_og_fee").Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
     
         
        Set myOlApp = GetObject(, "Outlook.Application")
        Set myitem = myOlApp.CreateItem(olMailItem)
        myitem.Display
        With myitem
        .Subject = "booking"
        .body ????
             
End With
   
End Sub