Как мне вставить картинку в тело письма?

Question

Я хочу добавить изображение в тело письма.

Это часть моего кода, в которую я включаю параметры письма:

With newMail
    .Subject = Range("Oggetto")
    .From = "xxxxx@xxxx.com"
    .To = Range("Email")
    .CC = ""
    .BCC = ""
    .TextBody = Range("Testo") 

End With

Мне нужно добавить изображение, возможно с измененным размером, в тело письма после того, как оно написано в ячейке «Электронная почта».