Excel til mail - med billede

Hej
Jeg har en vba, der sender et excelark som pdf vedhæftet en mail i Outlook. Se nedenstående.

Kan det lade sig gøre, at man kan indsætte et billede i 'Body'-feltet? Altså når jeg kører denne vba, så kommer billedet såvel som tekst med over i e-mailen. Det skal ikke være en fil, der bliver vedhæftet mailen.

Jeg kunne også godt tænke mig at kunne gøre noget teksten fed i 'Body'-feltet, men synes ikke at kunne finde noget sted at ændre til html.

Er der nogen, der kan være behjælpelig med dette?

På forhånd tak.
Jan


Sub Send_pdf_via_mail()

Dim DataSti As String
Dim Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
Dim OutlookPrg As Object
Dim OutlookMail As Object
Set OutlookPrg = CreateObject("Outlook.Application")
Set OutlookMail = OutlookPrg.CreateItem(0)

DataSti = objFolders("desktop") & Application.PathSeparator
Filnavn = "TEST-afsendelse" & ActiveSheet.Name & ", TEST" & ".pdf"

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

On Error Resume Next
With OutlookMail
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Afsendelse af pdf, TEST"
    .Body = "Hej" & vbCrLf & vbCrLf &
    .Attachments.Add (DataSti & Filnavn)
    .Display
End With
On Error GoTo 0

Kill (DataSti & Filnavn)

Set OutlookMail = Nothing
Set OutlookPrg = Nothing
Set objFolders = Nothing
End Sub