Hallo zusammen. ich habe in einer Excel Datei ein Arbeitsblatt in dem immer im selben Bereich daten Stehen (A4 bis D4). Diese daten Werden aus einem anderen Bereich eingefügt.
Immer der letzte Eintrag aus dem anderen Arbeitsblatt.
Nun will ich diesen Bereich als Bild per Email versenden.
Hier soll auch noch ein Link auf die Datei sein enthalten sein, damit der Empfänger diese Bearbeiten kann.

Sub BestellungFB()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hallo, Sie haben eine neue Bestellung erhalten:" & "
" _
& "Bitte hier" & "klicken um die Bestellung zu bearbeiten" & "
" _
& "Vielen herzlichen Dank."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Empfänger"
.Cc = ""
.BCC = ""
.Subject = "Schnittbestellung"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub

wie bekomme ich hier den Bereich als Bild eingefügt?
Danke im Voraus.